{
ParamCount, ParamStr example
The following example beeps once for each "beep" passed in on the command line. The example terminates the application if  “exit” is passed in on the command line.
} 
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  for i := 1 to ParamCount do
  begin
    if LowerCase(ParamStr(i)) = 'beep' then
      Beep
    else if LowerCase(ParamStr(i)) = 'exit' then
      Application.Terminate;
  end;
end; 
