procedure ParseStrToStrings(AStrings:TStrings;S:String;iType:integer;seperator:string);
var
i:integer;
begin
if (iType<0) or (iType>5) then
Exit;
if iType=4 then
begin
AStrings.CommaText :=s;
Exit;
end;
case iType of
0: Seperator :=',';
1: Seperator :=';';
2: Seperator :=' ';
3: Seperator :=chr(VK_TAB);
end;
i:=pos(seperator,s);
while i>0 then
begin
AStrings.Add(Copy(s,0,i-1));
s :=copy(s,i+length(seperator),length(s));
i :=pos(seperator,s);
end;
if s<>' ' then
AStrings.Add(s)
end;