procedure TForm1.Button1Click(Sender: TObject);
var
  k, i, x1, x2: int64;
  z, y: integer;
  s, sx: string;
begin
  i:=12;
  k:=0;
  while True do
    begin
      x1:=i;
      s:=IntToStr(x1);
      sx:='2';
      y:=Length(s);
      for z := 2 to y - 3 do
        begin
          sx:=sx+s[z];
        end;
      sx:=sx+s[1];
      inc(k);
      i:=i+10;

      if k mod 500000=0 then
        begin
          label2.Caption:=IntToStr(k);
          Application.ProcessMessages;
        end;

      if StrToInt64(sx)=2*StrToInt64(s) then break;
    end;
  edit1.Text:=sx;
end;

Shell_NotifyIcon(NIM_DELETE,@nidata);

nidata.Wnd:=Application.MainForm.Handle;

function Tfrm_Main.TestRunner(const FileName, Params: String; const WinState: Word):boolean;
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: String;
begin
  CmdLine := '"' + Filename + '" ' + Params;
  with StartInfo do
  begin
    FillChar(StartInfo, SizeOf(StartInfo), #0);
    cb := SizeOf(StartInfo);
  end;
  if FileExists (filename)=false then ShowMessage('Не найден файл '+filename) else
   begin
    Result := CreateProcess(nil, PChar(String(cmdline)), nil, nil, false,
                 CREATE_DEFAULT_ERROR_MODE or REALTIME_PRIORITY_CLASS or CREATE_NO_WINDOW, nil, PChar(String(ExtractFilePath(Filename))),StartInfo,ProcInfo);
 if Result=true then
   begin
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);     { Ожидаем завершения приложения }
    { Free the Handles }
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
   end;
  end;
end;

function Tfrm_Main.VideoParam:String;
 var tmp3d:String;
 i:integer;
begin
 i:=0;
 tmp3d:='';
 if rb_Resolution1280.checked = true then tmp3d:=tmp3d+'-res=1280x1024 ' else
 if rb_Resolution1024.checked = true then tmp3d:=tmp3d+'-res=1024x768 '  else
 if rb_resolution800.checked = true then  tmp3d:=tmp3d+'-res=800x600 ' else
 if rb_resolution640.checked = true then  tmp3d:=tmp3d+'-res=640x480 ';
 tmp3d:=tmp3d+'-sm2all -featureall -ps -vssimple -vscomplex ';
 if cb_Enable3DCPU.checked = true then tmp3d:=tmp3d+'-cpuall ';
 if cb_EnableAA.checked = true then tmp3d:=tmp3d+'-aa=2 ';
 if cb_ShModel.Checked = false then tmp3d:=tmp3d+'-sm3all -hdr2 -shaderparticle -perlinnoise ';
 tmp3d:=tmp3d+'-nosysteminfo results.3dr';
 VideoParam := tmp3d;
 i:=Length(tmp3d);
end;

 if Result=true then
   begin
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);     { Ожидаем завершения приложения }
    { Free the Handles }
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
   end;

procedure TForm1.Button1Click(Sender: TObject);
Var
 s:integer;
 prog: array [0..255]of char;
 param: array [0..255]of char;
 wrkdir: array [0..255]of char;
 FProcessHnd: THandle;
 FTimer:TTimer;
 ExitCode:DWord;
 ShellInfo:TShellExecuteInfo;
 FHInstance:THandle;
 
begin
 StrPCopy(prog,Edit1.Text);
 StrPCopy(param,Edit2.Text);
 StrPCopy(wrkdir,Edit4.Text);
 
 FillChar(ShellInfo,SizeOf(TShellExecuteInfo),0);
 ShellInfo.cbSize:=SizeOf(TShellExecuteInfo);
 ShellInfo.fMask:=SEE_MASK_NOCLOSEPROCESS;
 ShellInfo.Wnd:=HWnd_Desktop;
 ShellInfo.lpFile:=prog;
 ShellInfo.lpParameters:=param;
 ShellInfo.lpDirectory:=wrkdir;
 ShellInfo.nShow:=SW_SHOWNORMAL;
 
 if ShellExecuteEx(@ShellInfo) then
   begin
    Edit3.Text:='Working';
    FHInstance:=ShellInfo.hInstApp;
    FProcessHnd:=ShellInfo.hProcess;
    repeat
      Application.ProcessMessages;
      GetExitCodeProcess(FProcessHnd,ExitCode);
    until (ExitCode<>still_Active);
 
   Edit3.Text:='Terminated:'+IntToStr(ExitCode);
  end;
 end;