[vkey]

Smail !

Это спасёт великого гуру
=====================

Вместо твоей строки 71
Brick.Destroy;

поставь
FreeObject(Brick); // где Brick - твой созданный класс


И не забудь про эти процедуры

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure FreeObject(var O); var   OO: TObject absolute O;   XX: TObject; begin   XX := nil;   XChg(Integer(OO), Integer(XX));   TObject(XX).Free; end;   procedure XChg(var Critical, Normal); assembler; asm   mov  ecx, [edx]   lock xchg[eax], ecx   mov  [edx], ecx end;