Wie kann ich die Datei endung aus einer URL laden?

[maik1481]

ja dann kann ich denn rest weg lassen.

Delphi-Quellcode:

var
  Form6: TForm6;
  tmpURL, Prot, User, Pass, Host, Dir,Port, File1, FileExt: String;
implementation

{$R *.dfm}


Function GetAndDelete(Delim: String): string;
var ed, url,url1,url2,url3,url4 : string;
begin
    ed:='ftp://127.0.0.1:21/C:\Download\Datei.txt';
    Result := Copy(tmpURL, 1, Pos(Delim, tmpURL) - 1);
    Delete(tmpURL, 1, Pos(Delim, tmpURL) + Length(Delim) - 1);
end;