function Group(A: String; B: String = ''; C: String = ''; D: String = ''; E: String = ''; F: String = ''; G: String = ''; H: String = ''; I: String = ''; J: String = ''): TStringArray;
var ii: Integer;
Ar: TStringArray;
Len: Integer;
begin
Ar := TStringArray.Create(A,B,C,D,E, F,G,H,I,J);
for ii:=9 downto 1 do begin
if Ar[ii] <> '' then begin
Len := ii+1;
break;
end;
end;
SetLength(Result, Len);
for ii:=0 to Len-1 do Result[ii] := Ar[ii];
end;
operator in (A: String; B: TStringArray): Boolean;
var i: Integer;
begin
for i:=0 to Length(B)-1 do
if B[i] = A then Exit(True);
Result := False;
end;