risolto cosi:

procedure TForm1.FormCreate(Sender: TObject);
begin
if ParamStr(1) <> '' then
Richedit1.lines.loadfromfile(ParamStr(1));

end;

end.

grazie.