Bei DAteiverknüpfung Pfad in Listbox schreiben

[Marcasso]

hallo wie kann ich beim öffnen der Datei den Pfad in die lisbox schreiben?
ich habe es so versucht geht aber leider nicht

Delphi-Quellcode:

if InstallExt('.mp3', 'MP3Datei', 'Tolles Programm', ParamStr(0), '"%1"',0) then
    If (ParamCount>0) and
    (FileExists(ParamStr(1))) then
   begin
     form2.ListA.AddItem(ParamStr(1));
   end;