// Auszug aus der Delphi-Hilfe:

// Sie dürfen eine Komponente nie in einer ihrer eigenen
// Ereignisbehandlungsroutinen oder in einer Ereignisbehandlungsroutine
// eines untergeordneten Objekts freigeben. Geben Sie beispielsweise
// auf keinen Fall eine Schaltfläche oder ihr übergeordnetes Formular
// in der OnClick-Ereignisbehandlungsroutine der Schaltfläche frei.

// Mit einem ganz kleinen Umweg kommt man aber zum gleichen Ziel:

// Getestet mit D4 unter WinME

procedure weg(tc: TControl); 
begin 
  application.processmessages; 
  tc.free; 
end; 
 
 
// z.B. 
procedure TForm1.Button3MouseDown(Sender: TObject; Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
begin 
  weg(TControl(sender)); 
end; 
 
// oder auch 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  weg(Form1); 
end;