Sender.free?

[Orbmu2k]

Bei mir geht das...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  (Sender as TButton).Free;
end;