Código Delphi [-] TuComponente.OnClick := ComponenteClick;
TuComponente.OnClick := ComponenteClick;
Código Delphi [-] TForm1 = class(TForm) private procedure ComponentClick(Sender: TObject); end;
TForm1 = class(TForm) private procedure ComponentClick(Sender: TObject); end;