请教delphi高手：传入参数问题

Question

如果运行delphi程序test.exe 这样运行test data，怎样才能抓到data这个参数。在java或c++中直接在主函数中就可以得到传入的参数，dephi怎样做才行

Answer 1

procedure TForm1.FormCreate(Sender: TObject);var
  i: Integer;
begin
  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;