Код такой вообщем-то рабочий, но если путь к файлу содержит пробелы?
Вот улучшенная процедура. Но это если путь к файлу - единственный возможный параметр.
Код:
procedure TForm1.FormCreate(Sender : TObject);
var
I: Integer;
Buf: String;
begin
If ParamCount > 0 Then
for I := 1 to ParamCount do
Begin
Buf := Buf + ParamStr(i);
If I < ParamCount then Buf := Buf + ' '; //Следующий параметр отделяется пробелом
End;
If FileExists(Buf) Then
RichEdit1.Lines.LoadFromFile(Buf);
end;