Memo per ButtonClick schliessen

[Pseudemys Nelsoni]

Hallo Christian,

Delphi-Quellcode:

procedure TForm1.ButtonClick(Button: TObject);
var
  nummer: string;
  tc: TComponent;
begin
  with (Button as TButton) do
  begin
    nummer := Name;
    tc := TComponent.Create(self);
    delete(nummer, 1, 6);   // 1-6 = 'Button'
    tc := FindComponent('Memo' + nummer);
    tc.Free;
  end;
end;

meinst du so? Das funktioniert auch nicht. :\