function FParse(var S: string; const Delimiters: Char): string;
var
  P: Integer;
begin
  P := Pos(Delimiters, S);
  
  if P = 0 then
  begin
    Result := S;
    S := '';
  end
  else
  begin
    Result := Copy(S, 1, P-1);
    S := Copy(S, P+1, Length(S));
  end;
end;