function SplitString(Source, Deli: string): TStringList; var EndOfCurrentString: byte; StringList: TStringList; begin StringList := TStringList.Create; while Pos(Deli, Source) > 0 do begin EndOfCurrentString := Pos(Deli, Source); StringList.add(Copy(Source, 1, EndOfCurrentString - 1)); Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString); end; StringList.Add(Source); Result := StringList; end;