Как передать параметр в командную строку через Delphi?

var
  i : Integer;
begin
  Memo1.Clear;
  Memo1.Lines.Add('Параметры командной строки:');
  //Параметр ParamStr(0) - это всегда строка с полным путём к исполняемому файлу.
  for i := 0 to ParamCount - 1 do begin
    Memo1.Lines.Add( ParamStr(i) );
  end;
end;

var si:STARTUPINFO;
    pi:PROCESS_INFORMATION;
 
FillChar(si,SizeOf(si),0);
si.cb := SizeOf(si);
si.dwFlags := STARTF_USESHOWWINDOW;
si.wShowWindow := SW_SHOWNORMAL;
if CreateProcess(nil, 'cmd.exe /K "cd \ && cls && echo lol"', nil, nil, false, 0, nil, nil, si, pi) then begin
    CloseHandle(pi.hProcess);
end else begin
    MessageBox(0, PChar(IntToStr(GetLastError())), nil, 0);
end;

unit Command;
 {$R My.res}
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons,Registry, Menus,mmsystem;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Edit2: TEdit;
    Timer1: TTimer;
    Panel1: TPanel;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    Panel2: TPanel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    PopupMenu1: TPopupMenu;
 
    procedure FormCreate(Sender: TObject);
    procedure GetSubChild(Wdd: Hwnd);
    procedure Key(key: char);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure N1Click(Sender: TObject);
 
 
 
  private
    procedure WWMove(var Msg: TWMMove);
    message wm_MOVE;
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 uses text;
{$R *.dfm}
var
com: string;
function EnumProc(Wd: HWnd;Param: LongInt):Boolean;stdcall;
var
 
  Nm: Array[0..255] of Char;
  Cs: Array[0..255] of Char;
begin
  GetWindowText(Wd,Nm,255);
  GetClassName(Wd,Cs,255);
  Form1.Memo1.Lines.Add(string(Nm)+' '+string(Cs)+' '+IntToStr(Wd)+'*');
  EnumProc:= True;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
 
var
 Result: Hwnd;
 str,s,s1: string;
 P,i,P1,J,J1,vr: integer;
 
begin
  if ComboBox1.Text = '???' then
  begin
     PlaySound('my', 0, SND_RESOURCE or SND_ASYNC);
     Exit;
  end;
  if ComboBox1.Text = '' then
   begin
  ComboBox1.Text := '???';
  Exit;
   end;
 
  case Form1.RadioGroup1.ItemIndex of
   0: com:= 'control userpasswords2';
   1: com:= 'certmgr.msc';
   2: com:= 'chkdsk';
   3: com:= 'ciadv.msc';
   4: com:= 'cliconfg';
   5: com:= 'clipbrd';
   6: com:= 'compmgmt.msc';
   7: com:= 'control admintools';
   8: com:= 'control schedtasks';
   9: com:= 'dcomcnfg';
   10: com:= 'ddeshare';
   11: com:= 'dfrg.msc';
   12: com:= 'diskmgmt.msc';
   13: com:= 'drwtsn32 ';
   14: com:= 'dxdiag';
   15: com:= 'eudcedit';
   16: com:= 'eventvwr.msc';
   17: com:= 'fsmgmt.msc';
   18: com:= 'gpedit.msc';
   19: com:= 'lusrmgr.msc';
   20: com:= 'msconfig';
   21: com:= 'mstsc';
   22: com:= 'ntmsmgr.msc';
   23: com:= 'ntmsoprq.msc';
   24: com:= 'odbccp32.cpl';
   25: com:= 'perfmon.msc';
   26: com:= 'regedit';
   27: com:= 'secpol.msc';
   28: com:= 'services.msc';
   29: com:= 'sfc /scannow ';
   30: com:= 'sigverif';
   31: com:= 'sysedit';
   32: com:= 'syskey';
   33: com:= 'telnet';
   34: com:= 'utilman';
   35: com:= 'verifier';
   36: com:= 'wmimgmt.msc';
  end;
 
  case Form1.ComboBox1.ItemIndex of
   0: vr:= 200;
   1: vr:= 500;
   2: vr:= 1000;
   3: vr:= 1500;
   4: vr:= 2000;
   5: vr:= 2500;
   6: vr:= 3000;
   7: vr:= 10000;
  end;
  keybd_event(vk_LWIN,0,0,0);
  keybd_event(byte('R'),0,0,0);
  keybd_event(byte('R'),0,KEYEVENTF_KEYUP,0);
  keybd_event(vk_LWIN,0,KEYEVENTF_KEYUP,0);
  Sleep(vr);
  str:= com;
  Result:= FindWindow('#32770','Запуск программы');
  if Result=0 then
  begin
   ShowMessage('Окно не найдено');
   Exit;
  end
   else
  begin
   GetSubChild(Result);
  for I := 0 to Form1.Memo1.Lines.Count - 1 do
   begin
     P:=Pos('Edit',Form1.Memo1.Text);
     P1:=Pos('ОК Button',Form1.Memo1.Text);
   end;
  S:= Copy(Form1.Memo1.Text,p+5,7);
  S1:= Copy(Form1.Memo1.Text,p1+10,7);
  for J := 1 to Length(s) do
   begin
    case s[j] of
    '0'..'9': else s[j]:=Chr(0);
   end;
  end;
  Form1.Edit1.Text:= s;
  for J1 := 1 to Length(s1) do
   begin
    case s1[j1] of
   '0'..'9': else s1[j1]:=Chr(0);
   end;
 end;
  Form1.Edit2.Text:= s1;
 end;
  SendMessage(StrToInt(s), WM_SETTEXT, 0, LParam(PChar('')));
  for I := 1 to Length(str) do
  begin
   Key(str[i]);
  end;
   SendMessage(StrToInt(s1), WM_LBUTTONDOWN, 0, 0);
   SendMessage(StrToInt(s1), WM_LBUTTONUP, 0, 0);
end;
 
 
 
 
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  Key:= Chr(0);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 Memo1.Visible:= False;
 Edit1.Visible:= False;
 Edit2.Visible:= False;
end;
 
 
 
procedure TForm1.GetSubChild(Wdd: Hwnd);
begin
  Memo1.Clear;
  EnumChildWindows(WDD,@EnumProc,0);
end;
 
 
procedure TForm1.Key(key: char);
var
  q: integer;
  s: string;
begin
  s:= Edit1.Text;
  q:= StrToInt(s);
  SendMessage(q, wm_char, ord(key), 0);
end;
 
 
 
 
procedure TForm1.Label1Click(Sender: TObject);
var
reg: TRegistry;
dan: TStrings;
dan1: string;
k: integer;
begin
Form2.Memo1.Clear;
Form2.Show;
dan:= TStringList.Create;
reg:= TRegistry.Create;
reg.RootKey:= HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',False);
reg.GetValueNames(dan);
if dan.Count>0 then
 begin
   for k := 0 to dan.Count - 1 do
    begin
      dan1:= reg.ReadString(dan[k]);
      Form2.Memo1.Lines.Add(IntToStr(k+1)+'  '+dan1);
      Form2.Memo2.Lines.Add(dan[k]);
    end;
 end;
 reg.CloseKey;
 reg.Free;
end;
 
 
 
procedure TForm1.N1Click(Sender: TObject);
begin
 ShowMessage('Ну чего непонятно?'+#13+'На галку нажми и время выбери!!!');
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Form1.Caption:= 'Выполнить  сегодня:  '+DateToStr(now)+'  '+TimeToStr(now);
end;
 
procedure TForm1.WWMove(var Msg: TWMMove);
begin
if Form2<>NIL then
MoveWindow(Form2.Handle, Form1.left+Form1.Width+3,
 Form1.Top, Form2.Width, Form2.Height, true) ;
end;
 
end.

var si:STARTUPINFO;
    pi:PROCESS_INFORMATION;
 
FillChar(si,SizeOf(si),0);
si.cb := SizeOf(si);
si.dwFlags := STARTF_USESHOWWINDOW;
si.wShowWindow := SW_SHOWNORMAL;
if CreateProcess(nil, 'cmd.exe /K "cd \ && cls && echo lol"', nil, nil, false, 0, nil, nil, si, pi) then begin
    CloseHandle(pi.hProcess);
end else begin
    MessageBox(0, PChar(IntToStr(GetLastError())), nil, 0);
end;