Memo per ButtonClick schliessen

[Pseudemys Nelsoni]

lag komischerweise daran, das ich das Memo1.free innerhalb von dem with button as tbutton ausgeführt habe, komisch, wieso das? also es geht so:

Delphi-Quellcode:

procedure TForm1.ButtonClick(Button: TObject);
var
  tc: TComponent;
begin
  tc := TComponent.Create(self);
  tc := FindComponent('Memo1');
  tc.Free;
end;

bzw so:

Delphi-Quellcode:

procedure TForm1.ButtonClick(Button: TObject);
begin
  TMemo(FindComponent('Memo1')).Free;
end;