[Decoding]

Что, и демонстрационный пример глючит? Странно, у меня все нормально... Попробуй добавить в обработчик что-то типа

Код:

procedure TForm1.FormControl1FormMove(Senser: TObject; X, Y: Integer);
begin
   if ( Self <> nil ) and ( Self.Visible ) then
  begin
      // необходимые действия
   end;
end;