procedure RunAsAdmin(const aFile: string; const aParameters: string = ''; Handle: HWND = 0);

var

  sei: TShellExecuteInfo;

begin

  FillChar(sei, SizeOf(sei), 0);

  sei.cbSize := SizeOf(sei);

  sei.Wnd := Handle;

  sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;

  sei.lpVerb := 'runas';

  sei.lpFile := PChar(aFile);

  sei.lpParameters := PChar(aParameters);

  sei.nShow := SW_SHOWNORMAL;

  if not ShellExecuteEx(@sei) then

    RaiseLastOSError;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

RunAsAdmin('D:\IDM6.30.2\IDM\IDMan.exe','',handle);

end;