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

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

  // Сканирование на параметры parm1, parm2 и parm3
  if FindCmdLineSwitch('abc')
  then ShowMessage('abc найден')
  else ShowMessage('abc НЕ найден');

  if FindCmdLineSwitch('def')
  then ShowMessage('def найден')
  else ShowMessage('def НЕ найден');

  if FindCmdLineSwitch('ghi')
  then ShowMessage('ghi найден')
  else ShowMessage('ghi НЕ найден');
end;