TObjekt ???

[Binärbaum]

Dann nutze doch die Eigenschaft Tag des Buttons, um zu unterscheiden, welches Objekt es ist. Nummeriere die Buttons einfach fortlaufend wenn sie erstellt werden.

Delphi-Quellcode:

procedure TForm1.ButtonXClick(Sender: TObject);
begin
  if (Sender.ClassName = 'TButton') then begin
    case (Sender AS TButton).Tag of
      1: ShowMessage('Button1');
      2: ShowMessage('Button2');
      3: ShowMessage('Button3');
      ...
    end;
 end;//if
end;

MfG
Binärbaum