Borderstyle - BsNone. Странный баг...

[MyLastHit]

Здравствуйте. Пытаюсь сделать более менее интерактивное приложение. Нарисовал изображения массивом(в этот код особо не вникайте...просто изображения в порядке расставил правильном, здесь все гуд):

for i:=1 to 25 do
  begin
    j:=1;
    a[i]:=Timage.Create(Self);
    with a[1] do
    begin
      Parent:=Form4;
      name:='go1';
      Picture:=img1.Picture;
      AutoSize:=True;
      left:=6;
      top:=424;
      visible:=true;
      onmousemove:=moveit;
    end;
    if i>1 then
    begin
      with a[i] do
      begin
        Parent:=form4;
        Name:='go'+inttostr(i);
        AutoSize:=True;
        Picture:=img1.Picture;
        top:=424;
        left:=a[i-1].left+40;
        visible:=false;
        onmousemove:=moveit;
      end;
    end;

А вот в обработчике MoveIt, вот это написал:

if (Sender is TImage) then
  for i:=1 to 25 do
  if i<>j then
  begin
  a[i].Hide;
  if StrToInt(Copy((Sender as TImage).name,4,
  length((Sender as TImage).name)-3))=i then
  a[i].Show;
  end;

PS: На j внимания не обращайте, этот параметр передается при клике по сторонним кнопкам.
Факт в том, что Всё работает просто превосходно во всех видах формы кроме BSnone! Но если я ставлю стиль отображения формы как bsnone, то такое ощущение что этот обработчик просто игнорируется!
Никто не сталкивался? Как решается?

[GunSmoker]

Отжёг.

И как же мы можем догадаться, кто такой MoveIt и когда он вызывается?

[MyLastHit]

Я же его написал:

procedure TForm4.Moveit(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (Sender is TImage) then
  for i:=1 to 25 do
  if i<>j then
  begin
  a[i].Hide;
  if StrToInt(Copy((Sender as TImage).name,4,
  length((Sender as TImage).name)-3))=i then
  a[i].Show;
  end;
end;

А вообще впринципи я понял от чего это... у меня установлены компоненты AlphaTools и в них модуль для загрузки png идет, так вот, пока не кинешь на форму ихний Адаптор все будет работать хреново. Прорисовки на форме не будет. Тоже самое если Адаптер лежит на форме но у формы свойство bsNone. Теперь ищу компонент для подкачки png, а Алфу снес нафиг...