var
  cmd : string;
  i : Integer;

begin
  // Перед выполнением этого кода, используйте опцию меню Run/parameters
  // для установки следующих параметров командной строки: -parm1 -parm2
  cmd := CmdLine;
  ShowMessage(cmd);     // Показ выполняемой команды + параметры

  // Сколько параметров было передано?
  ShowMessage(IntToStr(ParamCount)+' параметров');

  // Показ этих параметров - обратите внимание, что 0-ой параметр это
  // выполняемая команда в Windows
  for i := 0 to ParamCount do
    ShowMessage('Параметр '+IntToStr(i)+' = '+ParamStr(i));
end;