Реализовать плавное перемещение картинки

repeat 
k:=k+10;
sleep(100);
until k=300;

uses graphABC;
var b:Picture;
    k:integer;
begin
b:=Picture.Create('1.jpg');
k:=0;
lockdrawing;
repeat
clearwindow;
b.Draw(100,k,150,50);
sleep(100);
k:=k+10;
redraw;
until k=300;
end.

program xxxxx; 
Uses GraphABC, ABCObjects;
var z,u,w,k,j,n,p,c: integer; 
begin; 
z:=500; 
u:=400; 
w:=500;
k:=50;
j:=300;
n:=50;
p:=100;
c:=50;
PictureABC.create (z, u, '1.jpg'); 
PictureABC.create (w, k, '1.jpg');
PictureABC.create (j, n, '1.jpg'); 
PictureABC.create (p, c, '1.jpg'); 
end.

uses ABCObjects;
var
  a: ABCObjects.PictureABC;
procedure OnKeyPress_(ch:char);
begin
  a:= ABCObjects.PictureABC.Create(0,0,'Image 15.png');
  a.dy:= 1;
end;
procedure test();
begin
  if (a.Position.Y + a.Height) >= GraphABC.Window.Height
    then
      a.MoveTo(0,0);
end;
begin
  GraphABC.OnKeyPress+=OnKeyPress_;
  var i: integer;
  while true do
    if a <> nil
      then
        begin
          a.Move;
          test;
        end;
end.

program xxxxx; 
Uses GraphABC, ABCObjects;
var a: ABCObjects.PictureABC;
    p,c: integer; 
begin; 
setwindowsize(650,600);
centerwindow;
p:=100;
c:=0;
a:=ABCObjects.PictureABC.Create(p,c,'1.jpg');
a.dy:= 1;
repeat
a.Move;
sleep(10);
until a.Top+a.Height>windowheight;
end.

program xxxxx; 
Uses GraphABC, ABCObjects;
var a: ABCObjects.PictureABC;
    p,c: integer; 
begin; 
setwindowsize(650,600);
centerwindow;
p:=100;
c:=0;
a:=ABCObjects.PictureABC.Create(p,c,'Image 15.png');
a.dy:= 1;
repeat
a.Move;
sleep(10);
until a.Top>windowheight;
//a.Destroy;
end.