procedure TForm1.FormCreate(Sender: TObject);<br><br>var<br> i: Integer;<br> for i := 1 to ParamCount do<br> begin<br> if LowerCase(ParamStr(i)) = 'beep' then<br> Beep<br> else if LowerCase(ParamStr(i)) = 'exit' then<br> Application.Terminate;<br> end;<br>end;