[poli-smen]

Сообщение от cmepthuk

Знаешь в чем перл?

Код:

Button1: TButton;
...
procedure TmainForm.Button1Click(Sender: TObject);
begin
  Sender.Free;
end;

работает без ошибок в чистом проекте, а в моем нет. Почему?

А если так?:

Код:

procedure TmainForm.Button1Click(Sender: TObject);
var
  pt: Pointer;
  size: Integer;
begin
  pt := Pointer(Sender);
  size := Sender.InstanceSize;
  Sender.Free;
  FillChar(pt^, size, 0);
end;