function FParse(var S: string; const Delimiters: char): string;
var
  Pos : Integer;
  I, J : Integer;
  P, F: PChar;
begin
  P := PChar(S);
  Pos := -1;
  F := StrScan(P, Delimiters);
  J := -1;
  if F <> nil then
    J := Integer(F) - Integer(P) + 1;
  if (J > 0) and ((Pos < 0) or (J < Pos)) then Pos := J;
  Result := S;
  if Pos <= 0 then Pos := Length(S) + 1;
  S := CopyEnd(Result, Pos + 1);
  Result := Copy(Result, 1, Pos - 1);
end;