var
  cmd : string;
  i : Integer;

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

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