[Aristarh Dark]

Попробуй сделать так:

Код:

procedure TFieldFigure.DeleteButtonClick(Sender: TObject);
begin
  DeleteButton.OnClick:=nil;
  Destroy; {!!!!!!!!!!}
end;

хотя это все равно изврат