[KOOL]

вот так:

Код:

procedure TForm1.OnCreate(Sender : TObject);
begin
...
  if Paramcount>0 then
    if FileExists(paramstr(1)) then
      Memo1.Lines.LoadFromFile(paramstr(1));
...
end;