Wie kann ich die Datei endung aus einer URL laden?

[maik1481]

Hei,

Möchte ein tool Bauen wie FlashGet zum Downloaden alerdings bekomme ich das nicht hin mit dem Aufsplitten der URL
Habe es mal so Versucht.

Code:

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

{$R *.dfm}


Function GetAndDelete(Delim: String): string;
begin
    Result := Copy(tmpURL, 1, Pos(Delim, tmpURL) - 1);
    Delete(tmpURL, 1, Pos(Delim, tmpURL) + Length(Delim) - 1);
    form6.Memo1.lines.Add(Result);
end;



procedure TForm6.Button1Click(Sender: TObject);
begin
  tmpURL := 'http://www.online.no/Download/Datei.txt';
  Prot := GetAndDelete('://');
  Host:= GetAndDelete(':');
  Port:= GetAndDelete('/');
  Dir:= GetAndDelete('/');
  File1:= GetAndDelete('.');
  FileExt:= GetAndDelete('');
end;

leider Sagt er mir nicht die Endung an was mache ich Falsch?

PS: Sorry für das Deutsch aber bin Norweger