[DELPHI] Pointery

[k_argo]

Elo, od niedawna zaczalem uzywac pointerow, wiem mniej wiecej jak co i gdzie, ale mimo to mam problem, mianowicie mam zdeklarowane pewne klasy :

 

L2Xor = class(TCodingClass)
 private
   keyLen: Byte;
 public
   constructor Create;
   procedure InitKey(const XorKey; Interlude: Boolean = False); override;
   procedure DecryptGP(var Data; var Size: Word); override;
   procedure EncryptGP(var Data; var Size: Word); override;
   procedure PreDecrypt(var Data; var Size: Word); override;
   procedure PostEncrypt(var Data; var Size: Word); override;
 end;

PClient   = ^TClient;
 TClient   = record
   IP      : string[15];  { Cleint IP address }
   Port : word;
   AThread : TIdPeerThread;
   XorS : TCodingClass;
end; (x-śŚVk6jhąąyyŚQ}LŃŃĄQĄQ%AQĄ)(AIAQA(ŃŹŃŹQA(
ąA
ą(
ąŃ}%%Ń(MŃM(1ŃI     Ń))QĄQŃQĄ
Ń
ŃŃĄ()Ń(źźŃ5Ą
ąM=ĄQ
ą(Ńźź(
ąŃmtŃĄąŃĄ(ąŃmtQĄ
Ń       !ąQĄ
Ń       !ąŃĄ(
ąŃmtŃĄŃ%@ŃĄŃ%@ŃĄ(
ąŃmtŃĄŃAŃĄŃAŃĄ
(
ą
ąŃmt(
ąŃ}%(Ź((((((Q1QĄŃŃŃŃĄŃĄ
ŃM       AA((ŃĄ
ŃI  ĄIA       ((1ŃIIA   lt((ĄIA     ltM(IA(ŃĄŃĄIA    ltM((
ą%Ń-ĄaI-Ń((ŃMM((
ąŃ@ĄŃŹŃ((
ąŃm
ąŃ}%tIAIA(IA        lt(ŃĄ1Ą
ą()(Q1(ŃĄŃ(ŃĄ)()ŚŃĄ1Ą
ąA
ą)(AQA(Aą-Aą-1-1-%Ń(M(ŃŹQA(Ń
ĄŹQ
Ą(]Ń]MŃ(19MŃ(=)(Q1ŃĄ1(A
ąŃxIA(ŃąĄA   ą(=(ĄA  ltŃŹAM(ĄąĄŃm=ŃtĄŃm=Źtź%Ą=(MŃ1ŃĄ]MŃĄ=Źź(5ĄŃlt]MŃlt=(19]MŃQMŃĄ]MŃ(Q11ą(=MŹ(5ĄŃmŃtAą-(5ĄŃmŹŃtAą-(5ĄŃmŹt1-(5ĄŃmŹt1-(M
ĄMąŃ%źĄ
ąą)

 

Wykrzacza mi w ostatniej procedurze przy xor oraz writebuffer. Co robie zle?

[Toster]

sprawdz czy EncryptGP nie wyjezdza ci poza bufor, moze nadpisujesz pamiec i dlatego sie sypie wszystko ?