var
  switchPrefixes : TSysCharSet;

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

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

  // Просмотр для abc и def параметров используемых по умолчанию значения / и -
  if FindCmdLineSwitch('abc')
  then ShowMessage('/abc найден')
  else ShowMessage('/abc НЕ найден');

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

  // Rescan with * and / as the switch prefix characters
  switchPrefixes := ['*','/'];
  if FindCmdLineSwitch('abc', switchPrefixes, True)
  then ShowMessage('*abc или /abc найден')
  else ShowMessage('*abc и /abc NOT найден');

  if FindCmdLineSwitch('def', switchPrefixes, True)
  then ShowMessage('*def или /def найден')
  else ShowMessage('*def и /def NOT найден');
end;