Memo per ButtonClick schliessen

[Pseudemys Nelsoni]

hm, selbst wenn ich findcomponent direkt "Memo!" gebe schlisst sich das memo1 nicht:

Delphi-Quellcode:

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