[delphi] problem z wysyłaniem pakietów

[Masturbinho]

Witam.

Mam pewien problem z wysyłaniem pakietów.
Oto mój skrypt:
http://wklej.org/id/1204468/

Chcę tylko, by po wciśnięciu buttona bot wykonał prostą czynność.
Jej pakiet to:
http://www.dropmocks.com/mCf6Ir

 

Nie będę ukrywać że chodzi tu o Tibię. Blackdproxy (słynny bot do Tibi) wykonuje tą używając tego pakietu: 82 FF FF 41 00 00 0F 0E 00 01

Natomiast ja podczas gdy próbuję uruchomić wyżej podany skrypt to mam problem. Mianowicie wylogowuje mi się postać w grze.

 

Nawet po wpisaniu tego kodu tak:

procedure TForm1.Button1Click(Sender: TObject);
 
 
var
  PacketBuffer: array [0..200] of byte;
  ProcessID: Cardinal;
begin
 
GetWindowThreadProcessId(FindWindow('TibiaClient',Nil), @ProcessID);
 
PacketBuffer[0] := $82;
PacketBuffer[1] := $FF;
PacketBuffer[2] := $FF;
PacketBuffer[3] := $41;
PacketBuffer[4] := $00;
PacketBuffer[5] := $00;
PacketBuffer[6] := $0F;
PacketBuffer[7] := $0E;
PacketBuffer[8] := $00;
PacketBuffer[9] := $01;
SendPacket(ProcessID, @PacketBuffer, TRUE, FALSE);
sleep(500);
end;

dzieje się to samo.