процедура клика на динамический объект

[ВалекFCRK]

Есть процедура для клика по динами-кому объекту.

procedure TForm1.LabelClick(p: integer;Sender: TObject);
begin
...
end;

Вот так я ее прописал в type
procedure LabelClick(p: integer;Sender: TObject);

Вот тут создаются динамические Label

Lab[nom]:=tbevel.Create(self);
Lab[nom].Left:=4;
Lab[nom].Top:=200;
Lab[nom].Tag:=1;
Lab[nom].Width:=545;
Lab[nom].Height:=25;
Tex[nom].OnClick:=TForm1.LabelClick(n);
Lab[nom].Style:=bsRaised;
Lab[nom].Parent:=panel4;
n:=n+1;

Нужно вобщем чтобы при клике на каждый LAbel в процедуре переменная p менялась в зависимости от того, на какой Label я нажал.

Помогите пожалуйста

[Swarog]

сохраняйте n в Tag, а обработчик .OnClick переопределять не надо

[ВалекFCRK]

К сейчашнему (извините за русский) моменту уже пробовал с Tag. В самой процедуре в case не могу сравнить этот таг.
Вот тут создается:

Tex[nom]:=tlabel.Create(self);
Tex[nom].Left:=5;
Tex[nom].Top:=w+5;
Tex[nom].Caption:=' Имя Фамилия ученика';
Tex[nom].Parent:=panel4;
Tex[nom].Tag:=nom; ///// Тагу присваиваю тотже номер что и у элемента
Tex[nom].OnClick:=LabelClick;
Tex[nom].Autosize:=False;
Tex[nom].Cursor:=crHandPoint;
Tex[nom].Width:=300;
Tex[nom].Height:=25;


Вот пишу в процедуре
case (Sender as TLabel).Tag of
0:Form3.infostudent.Lines.LoadFromF ile(dirName+'/'+floattostr(1)+'.txt');
1:Form3.infostudent.Lines.LoadFromF ile(dirName+'/'+floattostr(2)+'.txt');
2:Form3.infostudent.Lines.LoadFromF ile(dirName+'/'+floattostr(3)+'.txt');
3:Form3.infostudent.Lines.LoadFromF ile(dirName+'/'+floattostr(4)+'.txt');
4:Form3.infostudent.Lines.LoadFromF ile(dirName+'/'+floattostr(5)+'.txt');
end;


Не выходит. Ради эксперимента вывожу на левый Tag, все время показывает что 1. Вывожу переменную nom, все нормально, все время увеличивается. Помогите

[Аватар]

Ваши куски кода только вводят в заблуждение. Всю прогу на форум слабо выложить?

[ВалекFCRK]

мне всего лишь нужно узнать как правильно прописать в процедуре case (Sender as TLabel).Tag of