Параметры в командной строке

[AltairShepard]

Создал приложении S в Delphi. Создал следующее событие для формы.

procedure TForm1.FormShow(Sender: TObject);
 var
   parameter: string;
 begin
   parameter := ParamStr(1);
   if not (parameter = '') then
   begin
     ShowMessage(Paramstr(1));
     edit3.Text:=parameter;
   end;
   if ParamCount=2 then edit4.Text:=ParamStr(2);
   if parameter = '' then
   begin
     ShowMessage('No parameter.');
   end;
   if parameter = 'c' then color:=clblue;

 end;

Компилирую.
Теперь пишу имя программы и ее параметр

s 12

жму энтер выдает, что 12 не найдено(типа файл не найден ). Писал параметр и так "-12" и так "/12" и так "\12" результат один и тот же.
Приложение запускается, но перед этим во всех случаях пишет что 12 либо -12 либо /12 не найден . И вышепрописанная процедура не срабатывает, точнее едит.текст не присваивает, а шоумессейдж работает, хотя данный код в процедуре нажатия на кнопку прекрасно срабатаывает.

[AltairShepard]

никаких соображений народ?

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

FindCmdCaseSwitch как-то так называется.

[AltairShepard]

Команда работает, но все равно выдает что (имя параметра) не найден

[evg_m]

Теперь пишу имя программы и ее параметр
s 12

СЧИТАЕМ количество параметров. и проверяем

if ParamCount=2 then edit4.Text:=ParamStr(2);

точнее едит.текст не присваивает

и не должно как напсано коде.