Delphi картинка прилипает к курсору

[Максим_83]

Приветствую форумчан. Возникла такая проблема: после дабл-клика картинка на форме прилипает к курсору как он на неё наводится.
Как от этого можно избавиться??

дабл-клик

procedure TForm6.Image1DblClick(Sender: TObject);
begin
form6.Hide;
Form1.StringGrid0.Hide;
Form1.StringGrid1.Hide; 
Form1.StringGrid2.Show;
...
Form1.BitBtn120.Hide;
form1.Show;
end;

Так же на картинку написан код для её перемещения.

procedure TForm6.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if button <> mbLeft then
    move:=false 
  else
  begin
    move:=true;
    x0:=x; 
    y0:=y; 
  end;
end;

procedure TForm6.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if move then
  begin
    image1.Left:=image1.Left+x-x0;
    image1.Top:=image1.Top+y-y0; 
  end;
end;

procedure TForm6.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
move := false;
end;

[BDA]

procedure TForm6.Image1DblClick(Sender: TObject);
begin
form6.Hide;
move:=false;
Form1.StringGrid0.Hide;
Form1.StringGrid1.Hide; 
Form1.StringGrid2.Show;
...
Form1.BitBtn120.Hide;
form1.Show;
end;

По идее, должно помочь.

[Максим_83]

Не помогает такое если повесить на дабл-клик.
Решил банальным способом

procedure TForm6.FormActivate(Sender: TObject);
begin
move:=false;
end;

Это называется - надо на пару дней оторваться от программирования чтобы не тупить...