Вопрос о "создании" процедуры

[Rusl92]

Здравствуйте, у меня такая проблема:
Сначало я создаю массив Labelов и кнопку:
public
variant:array[1..5] of TLabel;
Button1:TButton;
...
{ Public declarations }
end;

Затем в цикле Labelы у меня создаются на форме+кнопка:
for i:=1 to 5 do
begin
variant[i]:=TLabel.Create(Self);
...
end;
Button1:=Tbutton.Create(Self);

Теперь обьявляю процедуру для кнопочки
public
procedure Button1Click(Sender: TObject);
...
{ Public declarations }
end;

Далее
Button1.OnClick:=Button1Click;
...
end;
procedure TForm2.Button1Click(Sender:Tobject) ;
begin
...
end;
А как данную операцию сделать для массива Labelов???

Помогите пожалуйста!Заранее спасибо!

[Stilet]

Я не понял вопроса но напишу как понял:

for i:=1 to 5 do
begin
variant[i]:=TLabel.Create(Self);
variant[i].OnClick:=Button1Click;// или Label1Click если соизволишь его создать
end;

[Rusl92]

Variant[1].OnClick:=Variant1Click;
Variant[2].OnClick:=Variant2Click;
Variant[3].OnClick:=Variant3Click;
Variant[4].OnClick:=Variant4Click;
Variant[5].OnClick:=Variant5Click;
я так сделал, а нельзя покрасивее???

[Квэнди]

можно, создать один обработчик и проверять кто его вызвал (sender)

[Rusl92]

И каким образом?

[alexBlack]

Держите пример:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    variant : array[1..5] of TLabel;
    procedure variantClick(Sender: TObject);
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
   for i:=1 to 5 do begin
     variant[i]         := TLabel.Create(Self);
     variant[i].Parent  := Self;
     variant[i].Top     := 10+i*12;
     variant[i].Left    := 10;
     variant[i].tag     := i;
     variant[i].Caption := 'aaa';  // будет меняться по Click
     variant[i].OnClick := variantClick;
   end;
end;

procedure TForm1.variantClick(Sender: TObject);
var l:TLabel;
begin
   if not (Sender is TLabel) then exit;
   l := Sender as TLabel;
   //l.Tag - номер в массиве
   l.Caption := intToStr(l.Tag); 
end;