OnCklick Event Problem von dynamisch erstellten buttons!

[mirage228]

Delphi-Quellcode:

procedure ButtonClick(Sender: TObject);
begin
  if Sender = FindComponent('sb1') then 
  begin
    // mach was
  end else
  if Sender = Button1 then
  begin
    // mach was...
  end else  
  if (Sender is TButton) then // alles was ein TButton ist
   begin
    // mach sonst was...
  end;
end;

hoffe mein Beispiel hilft dir

mfG
mirage228