.url öffnen geht nicht

[McRobins]

Ok danke auch für deine Antwort.
Jap, also mit %s klappt das schonmal.
Ja jetzt gibt es nur noch eine Listbox und ein edit.
Das ist jetzt alles weg, dass sieht jetzt so aus:

Delphi-Quellcode:

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
case (ListBox1.ItemIndex) of
 0: begin
     filename := (ExtractFilePath(ParamStr(0)) + ChangeFileExt('Html\' + Listbox1.Items[ListBox1.Itemindex] , '.url'));
     OpenURL(filename);
     if not FileExists(filename) then
     raise Exception.CreateFmt('Datei %s existiert nicht', [filename]);
    end;
 1: begin
     filename := (ExtractFilePath(ParamStr(0)) + ChangeFileExt('Html\' + Listbox1.Items[ListBox1.Itemindex] , '.url'));
     OpenURL(filename);
     if not FileExists(filename) then
     raise Exception.CreateFmt('Datei %s existiert nicht', [filename]);
    end;
 2: begin
     filename := (ExtractFilePath(ParamStr(0)) + ChangeFileExt('Html\' + Listbox1.Items[ListBox1.Itemindex] , '.url'));
     OpenURL(filename);
     if not FileExists(filename) then
     raise Exception.CreateFmt('Datei %s existiert nicht', [filename]);
    end;
...

Also ich muss jetzt nur noch feinarbeiten machen und dann klappt das
Danke für eure Hilfe !

Mfg
McRobins