Invalid Class Typecast только на первом компоненте

Здравствуйте. Подскажите, пожалуйста! Проблема следующая... У меня в цикле динамически создаются кнопки. Создание проходит нормально, но... при нажатии на первый контрол левой кнопкой выходит Invalid Class Typecast, на остальных нормально.
for y := 1 to 3 do
 begin
 t:=8;

 GameButton:=TButton.Create(self);
 GameButton.Parent:=MainForm;
 GameButton.Left:=l;
 GameButton.Top:=11;
 GameButton.Width:=170;
 GameButton.Name:='GameButtons'+IntToStr(n);
 GameButton.Tag:=y;
 GameButton.Caption:='Свободный слот';
 GameButton.OnClick:=ButtonClick;
 GameButton.OnMouseUp:=ButtonMouseUp;

 for x := 1 to 15 do
 begin
 GameButton:=TButton.Create(self);
 GameButton.Parent:=MainForm;
 GameButton.Left:=l;
 GameButton.Name:='GameButton'+IntToStr(y)+IntToStr(x);
 GameButton.Tag:=n;
 GameButton.Top:=t+31;
 GameButton.Width:=170;
 GameButton.Caption:='Свободный слот';
 GameButton.OnClick:=ButtonClick;
 GameButton.OnMouseUp:=ButtonMouseUp;

 t:=t+31;
 inc(n);
 end;
 l:=l+196;
 end;
Ошибка выходит вот здесь if (components[Tag] as TButton).Caption <> 'Свободный слот' then(Tag передается через события (onClick и onMouseUp) в процедуру и на onClick ошибка)
2 ответа

Номер компонента в списке Components, не имеет ничего общего со свойством tag.


Блинн... вот тупанул. давно не лазил в делфи, забыл. СПС