Движение объекта на форме мышью

[_-Re@l-_]

Вот у меня на форме есть TPNGObject - шашка.Мне нужно реализовать её передвижение.То есть просто передвижение мышью: зажимаем левую кнопку мыши на этом объекте, двигаем объект, отпускаем левую кнопку, и изображение на нужном нам месте.Вопрос прост: как это сделать?
P.S.Яндекс мне не помог.
P.P.S. Google тоже

[Alex Cones]

OnMousedown = FLAG := TRUE;
OnMouseUp = FLAG := FALSE;

[_-Re@l-_]

Пишет Undeclared Identifier про Flag

[Alex Cones]

Блин, а регистрировать его кто будет?

Var
 Flag : Boolean;

[ex.cluz]

Чет проблемы не вижу.
У TPNGObject есть же координаты вот их и меняйте на OnMouseMove если Flag=true.

[_-Re@l-_]

if Flag = True then begin
     Canvas.Draw(0,0,Png);
     a:=X;
     b:=Y;
     Canvas.Draw(a,b,Sh);end;

Правда, мерцание немного мешает. Спасибо, ex.cluz и Alex Cones

[Kotofff]

Ошибся с сообщением.
Прошу прощения !
Serge_Bliznykov, благодарю за поправку !!!

[Serge_Bliznykov]

Ну а с Image можно просто :

Kotoff, а скажите честно - вы сами пробовали этот код?
У меня это просто не работает!

[W0LF]

Сообщение от _-Re@l-_

...Правда, мерцание немного мешает...[/B]

На OnCreate:

DoubleBuffered := True;

[_-Re@l-_]

На OnCreate:
Код:

DoubleBuffered := True;

Если честно, не помогло.
Но у меня в OnCreate ещё просто стоит вот что:

function SetFullscreenMode:Boolean;
var
  DeviceMode : TDevMode;
begin
  with DeviceMode do
  begin
    dmSize:=SizeOf(DeviceMode);
    dmBitsPerPel:=16;
    dmPelsWidth:=800;
    dmPelsHeight:=600;
    dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
    result:=False;
    if ChangeDisplaySettings(DeviceMode,CDS_TEST or CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL
    then Exit;
    Result:=ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL;
  end;
end;