Telefon bøger, egen filtype

Hey experter

Jeg har lavet mig en telefonbog, og har sat filerne *.tel til at åbne "C:\Sti\til\mit\program.exe -open %1"

og i min formcreate:

procedure TForm1.FormCreate(Sender: TObject);
var
  Filnavn : String;
begin
  if ParamStr(1) = '-open' then
    begin
      Filnavn := pchar(ParamStr(2));
      showmessage(Filnavn);
      Form1.ClientDataSet1.FileName := Filnavn;
      Form1.ClientDataSet1.Open;
    end;
end;

Den viser beskeden med stien, det virker
problemet er bare den ikke loader det, jeg bruger mybase