[Человек_Борща]

Спасибо огромное

Ренализовал вот так:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: SmallInt;
begin
  if ParamCount > 0 then
  begin
    for i := 0 to ParamCount - 1 do
    begin
      if ParamStr(i) = '-PidFile' then
      begin
        Memo1.Lines.Add('PID файл: ' + ParamStr(i + 1));
      end;

      if ParamStr(i) = '-ExeFile' then
      begin
        Memo1.Lines.Add('Исполняемый файл: ' + ParamStr(i + 1));
      end;

      if ParamStr(i) = '-ExeParams' then
      begin
        Memo1.Lines.Add('Ключи запуска: ' + ParamStr(i + 1));
      end;
    end;
  end;
end;