Запуск файла с параметрами

program My;

uses
  Forms,
  Windows,
  SysUtils,
  ShellAPI;

var
   ExecInfo: TShellExecuteInfo;
   ExeFile:string;
begin
  FillChar(ExecInfo, SizeOf(ExecInfo), 0) ;
  with ExecInfo do
  begin
    cbsize := SizeOf(TShellExecuteInfo);
    lpClass:='.exe';
    lpVerb:='runas';
    fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_CLASSNAME;
    Wnd := Application.Handle;
    ExeFile:=ExtractFilePath(Application.exeName)+'Presetup.exe';
    lpFile := PChar(ExeFile);
    lpDirectory := PChar(ExtractFilePath(ExeFile));
    nShow := SW_SHOWNORMAL;
  end;
  ShellExecuteEx(@ExecInfo);
end.