procedure TForm1.FormCreate(Sender: TObject);

var

  i: Integer;

begin

  for i:= to ParamCount  do

  begin

    if LowerCase(ParamStr(i)) = 'beep' then

      Application.MessageBox('Demo','beep',IDOK )

   else if LowerCase(ParamStr(i))='exit' then

      Application.Terminate;

  end;

end;

string ls_cmd, ls_arg[]

integer i, li_argcnt

// Get the arguments and strip blanks

// from start and end of string

ls_cmd = Trim(CommandParm())

li_argcnt =

DO WHILE Len(ls_cmd) > 

// Find the first blank

i = Pos( ls_cmd, " ")

// If no blanks (only one argument),

// set i to point to the hypothetical character

// after the end of the string

if i =  then i = Len(ls_cmd) + 

// Assign the arg to the argument array.

// Number of chars copied is one less than the

// position of the space found with Pos

ls_arg[li_argcnt] = Left(ls_cmd, i - )

// Increment the argument count for the next loop

li_argcnt = li_argcnt + 

// Remove the argument from the string

// so the next argument becomes first

ls_cmd = Replace(ls_cmd, , i, "")

LOOP