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

[skillsoft]

Здравствуйте. Подскажите, пожалуйста!
Проблема следующая... У меня в цикле динамически создаются кнопки. Создание проходит нормально, но... при нажатии на первый контрол левой кнопкой выходит 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 ошибка)

[Человек_Борща]

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

[skillsoft]

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