События в динамически созданном компоненте

[Biowulf86]

Подскажите пожалуйста как создать и запрграммировать событийные процедуры для компонента, созданного при помощи Create

nspinkrit[1] := TSpinEdit.Create(mainform.frame21);
with nspinkrit[1] do
begin
Parent := mainform.frame21;
Left := left1 + 120 + 220 + 230;
Top := 5;
Font.Size := 12;
font.Name := 'Comic Sans MS';
value := 3;
width := 45;
maxvalue := 10;
minvalue := 1;
end;

Как написать и запрграммировать событийную процедуру OnClick для такого кода?
Заранее огромное спасибо!

[Stilet]

оч. просто :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Spin;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure SpinEdit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var    nspinkrit:TSpinEdit;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
nspinkrit := TSpinEdit.Create(self);
with nspinkrit do
begin
  Parent := self;
  Left := 120 + 220 + 230;
  Top := 5;
  Font.Size := 12;
  font.Name := 'Comic Sans MS';
  value := 3;
  width := 45;
  maxvalue := 10;
  minvalue := 1;
  OnClick:=SpinEdit1Click;
end;
end;

procedure TForm1.SpinEdit1Click(Sender: TObject);
begin
  // А тут нужный тебе код;
end;

end.

[Biowulf86]

Огромное спасибо!