C++ source change -> Delphi source please

library CF_RUS;

uses
  Windows;
  
var
TI1: LongWord;
TI2: LongWord;

{$R *.res}

function PushToConsole(command:string):boolean;cdecl;
var
dwCShell, LTClient, Total: cardinal;
null: variant;
begin
  dwCShell := GetModuleHandleA('CShell.dll');
  if dwCShell <> null then begin
   LTClient := dwCShell + $0027DFF8;
   Total := LTClient + $000001F8;
   asm
    push command;
    call Total;
    add esp, $00000004;
   end;
   result := true;
  end else begin
   result := false;
  end;
end;

function Main(const LPVOID:variant):boolean;
var
boxes, nosky: boolean;
begin
boxes := false;
nosky := false;

while(true)do begin
  asm
   pushad;
  end;

  //down key
  if(GetAsyncKeyState(VK_NUMPAD1)<>0)then begin
   boxes := not boxes;
  end;
  if(GetAsyncKeyState(VK_NUMPAD2)<>0)then begin
   nosky := not nosky;
  end;

  //on or off cmd cheat
  if boxes then begin
   PushToConsole('ModelDebug_DrawBoxes 1');
  end else begin
   PushToConsole('ModelDebug_DrawBoxes 0');
  end;
  if nosky then begin
   PushToConsole('DrawSky 1');
  end else begin
   PushToConsole('DrawSky 0');
  end;


  asm
   popad;
  end;
  Sleep(100);
end;
end;

function Ready():boolean;
var
  null: variant;
begin
if GetModuleHandleA('cshell.dll')<> NULL then begin
  result := true;
end else begin
  result := false;
end;
end;

function dwMainThread(const LPVOID:variant):LongWord;
begin
while not Ready() do begin
  Sleep(200);
  CreateThread(nil, 0, @Main, nil, 0, TI2);
  result := 0;
end;
end;

//DllMain
begin
DisableThreadLibraryCalls(HInstance);
MessageBoxA(0, 'Coded by: HackerVasya'+#13#10+'For **************.com', 'CrossFire Cheats', 0);
CreateThread(nil, 0, @dwMainThread, nil, 0, TI1);
end.

library CF_RUS;