Procedure i komponent

Ved ikke om det er det rigtige, jeg svarer på... men måske:



Uses ..., DinKomponent;
var
  Form1: TForm1;
  Komponenten : TDinKomponent;

og i implementationsdelen kaldes proceduren som
procedure TForm1.Button1Click(Sender: TObject);
begin
  Komponent.OnClick;
end;


Og i din komponent:
Unit DinKomponent;
type
  TDinKomponent = class
    procedure OnClick();

og i implementationsdelen:
procedure TDinKomponent.OnClick();
begin
  ....
end;