[vkey]

Smail !

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

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

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


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

Код:

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;