Помогите написать чит для WarFace на Delphi 7

исправить сможете этот код? и дать правильный исходник!

procedure TForm1.Timer1Timer(Sender: TObject);begin
if getasynckeystate(1)<>0 then
begin
mouse_event(MOUSEEVENTF_MOVE, 0, 2, 0, 0);
end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if getasynckeystate(1)<>0 then
begin
mouse_event(MOUSEEVENTF_MOVE, 0, 3, 0, 0);
end;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if getasynckeystate(1)<>0 then
begin
mouse_event(MOUSEEVENTF_MOVE, 0, 2, 0, 0);
end;
end;

procedure TForm1.btn1Click(Sender: TObject);

begin
if rb1.Checked = True then
begin
Timer1.Enabled:=True;
Timer2.Enabled:=False;
Timer3.Enabled:=False;
Timer4.Enabled:=False;
end;

if rb2.Checked = True then
begin
Timer1.Enabled:=False;
Timer2.Enabled:=True;
Timer3.Enabled:=False;
Timer4.Enabled:=False;
end;

if rb3.Checked = True then
begin
Timer1.Enabled:=False;
Timer2.Enabled:=False;
Timer3.Enabled:=True;
Timer4.Enabled:=False;
end;

if rb5.Checked = True then
begin
Timer1.Enabled:=False;
Timer2.Enabled:=False;
Timer3.Enabled:=False;
Timer4.Enabled:=True;
end;

if rb4.Checked = True then
begin
Timer1.Enabled:=False;
Timer2.Enabled:=False;
Timer3.Enabled:=False;
Timer4.Enabled:=False;
end;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
if getasynckeystate(1)<>0 then
begin
mouse_event(MOUSEEVENTF_MOVE, 0, 3, 0, 0);
end;
end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
if getasynckeystate(1)<>0 then
begin
SystemParametersInfo(SPI_GETMOUSESPEED,0,@MouseInfo,0);
SystemParametersInfo(SPI_SETMOUSESPEED,0,Pointer(MouseInfo div 3),SPIF_SENDCHANGE);
end
else
begin
SystemParametersInfo(SPI_GETMOUSESPEED,0,@MouseInfo,0);
SystemParametersInfo(SPI_SETMOUSESPEED,0,Pointer(MouseInfo * 3),SPIF_SENDCHANGE);
end;

end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer5.Enabled:=True;
if getasynckeystate(1)<>0 then
begin
SystemParametersInfo(SPI_GETMOUSESPEED,0,@MouseInfo,0);
SystemParametersInfo(SPI_SETMOUSESPEED,0,Pointer(MouseInfo div 3),SPIF_SENDCHANGE);
end
else
begin
SystemParametersInfo(SPI_GETMOUSESPEED,0,@MouseInfo,0);
SystemParametersInfo(SPI_SETMOUSESPEED,0,Pointer(MouseInfo * 3),SPIF_SENDCHANGE);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer5.Enabled:=False;
if getasynckeystate(1)<>0 then
begin
SystemParametersInfo(SPI_GETMOUSESPEED,0,@MouseInfo,0);
SystemParametersInfo(SPI_SETMOUSESPEED,0,Pointer(MouseInfo * 3),SPIF_SENDCHANGE);
end;
end;

procedure TForm1.Timer6Timer(Sender: TObject);
begin
if Screen.Width = 640 then
begin
ScreenDC := GetDC(0);
Rectangle(ScreenDC, 318, 237, 322, 241);
ReleaseDC(0,ScreenDC);
end;

if Screen.Width = 800 then
begin
ScreenDC := GetDC(0);
Rectangle(ScreenDC, 398, 298, 402, 302);
ReleaseDC(0,ScreenDC);
end;

if Screen.Width = 1024 then
begin
ScreenDC := GetDC(0);
Rectangle(ScreenDC, 511, 382, 514, 385);
ReleaseDC(0,ScreenDC);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Timer6.Enabled:=True;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Timer6.Enabled:=False;
end;

end.