динамический рисунок

[sasha1993]

Я могу вывести фото на экран вот так

procedure TForm1.FormPaint(Sender: TObject);
begin

   
    time:=0;
  Bitmap := TBitmap.Create;
       b2 := TBitmap.Create;
  Bitmap.LoadFromFile('1.bmp');
  begin
time:=time+1;
          Canvas.Draw(-time, 0, Bitmap);

          sleep(100);

          end;
end;

как сделать чтоб фото плыло по экрану,тоесть чтоб его координаты менялись ?

[ZvEr_HaCkEr]

Менять координаты надо таймером.