Проблема с Tag в динамических объектах

[ВалекFCRK]

Вот у меня кнопка, при нажатии на которую создается LAbel.

Tex[nom]:=tlabel.Create(self);
Tex[nom].Left:=5;
Tex[nom].Top:=w+5;
Tex[nom].Tag:=tag+nom;
Tex[nom].Caption:=' '+sename.text+' '+name.text;
Tex[nom].Parent:=Form1.panel4;
Tex[nom].Autosize:=False;
Tex[nom].OnClick:=Form1.LabelClick;
Tex[nom].Cursor:=crHandPoint;
Tex[nom].Width:=300;
Tex[nom].Height:=25;
w:=w+27;
nom:=nom+1;

Вот так он описан: Tex:array [1..20] of TLabel;

Вот процедура OnClick для динамического объекта:

procedure TForm1.LabelClick(Sender: TObject);
begin
case TLabel(Sender).Tag of
0:Form3.infostudent.Lines.LoadFromF ile(dirName+'/'+floattostr(0)+'.txt');
1:Form3.infostudent.Lines.LoadFromF ile(dirName+'/'+floattostr(1)+'.txt');
2:Form3.infostudent.Lines.LoadFromF ile(dirName+'/'+floattostr(2)+'.txt');
3:Form3.infostudent.Lines.LoadFromF ile(dirName+'/'+floattostr(3)+'.txt');
end;
Form3.Show;
end;



Не могу понять в чем ошибка. При компиляции ошибок нет, вот только при компиляции он делает не то что нужно. Помогите

[ВалекFCRK]

прошу прощения. Не при компиляции. а при запуске

[ReportCube]

Чему равна nom при старте?

[ВалекFCRK]

. .............
nom:=1

[ВалекFCRK]

Вот вобщем щас аокыврял чето, и понял что Tag вобще не изменяется. Как задал я его один, так он все время один остается:9 почему так

[ReportCube]

nom - глобальная переменная? tag - глобальная переменная? Если nom = 1 при старте, то каким образом TLabel(Sender).Tag может быть равна нулю?

[ВалекFCRK]

да это не так важно. МОжно и удалить вариант 0 из case. Все равно не получается ведь

[ReportCube]

Что не получается? Вы в обработчике присваиваете Tex[nom].Tag:=tag+nom
Где-то есть переменная tag с каким-то значением (зачем?). Может она у Вас изменяется в зависимости от переменной nom ? Откуда мы знаем логику вашей программы - видим только кусок кода.

[ВалекFCRK]

все извиняюсь. можно даже тему удалять. Моя ошибка. После каждого добавления nom + 1 у меня потом чуть ниже опять к этой ном присваивалось 1) невнимательность