[Delphi] BUG programu po wysłaniu pakietu.

[DroniC]

Witam.

Próbowałem coś sklejać w delphi i po wysłaniu pakietu jeden raz debuguje mi się całe delphi.

może ktoś się zorientuje w czym problem:
 

procedure up;
var
  PacketBuffer: array [0..200] of byte;
  ProcessID: Cardinal;


begin
GetWindowThreadProcessId(FindWindow('TibiaClient',Nil), @ProcessID);


PacketBuffer[0] := $00;
PacketBuffer[1] := $01;
PacketBuffer[2] := $6F;


SendPacket(ProcessID, @PacketBuffer, TRUE, FALSE);
sleep(2000);
end;

Wydaje mi się, że na końcu pakietów powinno być coś takiego:

CopyMemory(@PacketBuffer[3]), ale nie działa. Coś trzeba pokminić. Ma ktoś jakiś pomysł?