.url öffnen geht nicht

[McRobins]

Hey,
also ich bin neu hier im Forum und auch nicht erfahrenste.
Aber zur Zeit hab ich ein Problem und zwar, ich will per Doppelklick in einer Listbox eine bestimmte Url öffnen per .url Datei.

Delphi-Quellcode:

procedure TForm1.ListBox1DblClick(Sender: TObject);
var filename: string;
begin
  Ini:=TIniFile.Create('ListBoxItems\ListBoxItems.ini');
  ini.ReadSection('ListboxItems',Memo1.Lines);
  filename := (ExtractFilePath(ParamStr(0)) + ChangeFileExt('Html\' + Memo1.Text, '.url'));

  case (ListBox1.ItemIndex) of
   0: ShellExecute(Handle, nil, PChar(filename) , nil, nil, SW_SHOW);
end;
end;

Wenn ich Doppelklick mache, passiert da nichts.
Aber wenn ich anstatt 'filename' den richtigen Pfad angebe, dann macht er das.
Ich hab auch mal als Test den ShowMessage Befehl genommen um zu gucken ob der Pfad auch richtig ist und das ist er :s
An was liegt das ? :s
Ich hoffe ihr versteht was ich meine

Mfg
McRobins