Establecer un programa para una extension

[Khronos]

Gracias cHackAll, funciona perfectamente y ya registre la extension .phx para que ejecute mi programa.
Pero no me funciona ParamStr y ParamCount.

Código Delphi [-]
procedure TFPlayer.FormCreate(Sender: TObject);
begin
If ParamCount>0 then begin
showmessage(Paramstr(1));
end;
end;

Me sale el mensaje en blanco. Lo unico que necesito obtener es la path del archivo que llamo a mi programa pero no me funciona.

Salu2