function StringSplit(Source: string; p: integer; separator: char): string;
var
  i: integer;
  s,s1: string;
begin
  s:= Source + separator;
  for i := 0 to p do begin
    s1 := Copy(s, 1, Pos(separator, s)-1);
    s := Copy(s, Pos(separator, s)+1, Length(Source));
  end;
  Result := s1;
end;