Паскаль. Графика. Нужна помощь с фрагментом программы

[Кэмерон]

Привет всем ) Очень нужна помощь, а точнее мысли и идеи, а то я сама зашла в тупик, не знаю, что делать... Буду очень признательна, если кто-то откликнется ))

Дело вот в чем собственно...
Мне нужно сделать программу графика движения в Паскале:
На разных сторонах экрана расположены стакан и бидон, по нажатию клавиши стакан перемещается к бидону (эту часть программы я сделала)

Затем из крана стакан начинает заполняться молоком до края!

Ума не приложу как сделать вторую часть, если у кого-то найдутся мысли по этому поводу, будет просто замечательно. А то я как ЭТО сделать не знаю..... (((

[Кэмерон]

часть, которую сделала....

uses graph,crt;
var
gd,gm,x,y,size,h,ckx,cky:integer;
p: pointer;
begin
x:=5;
gd:=detect;
initgraph (gd,gm,'');
setbkcolor(blue);

setcolor(brown);
setlinestyle(0,0,3);
line(5,320,635,320);

setlinestyle(0,0,1);
setcolor(8);
line(5,318,5,238);
line(5,238,50,238);
line(50,238,50,318);
line(50,318,5,318);
setfillstyle(9,7);
floodfill(10,300,8);

setcolor(12);
line(565,318,635,318);
line(635,318,635,128);
line(635,128,565,128);
line(565,128,565,318);
line(565,188,526,188);
line(526,188,526,208);
line(526,208,536,208);
line(536,208,536,198);
line(536,198,565,198);
setfillstyle(11,12);
floodfill(596,317,12);
floodfill(564,189,12);

setcolor(white);
setlinestyle(0,0,3);
line(575,243,585,203);
line(585,203,600,223);
line(600,223,615,203);
line(615,203,625,243);

readkey;
x:=5;y:=238;
size:=imagesize(x,y,x+45,y+80);
getmem(p,size);
getimage(x,y,x+45,y+80,p^);
repeat
delay(10000);
putimage(x,y,p^,1);
x:=x+10;
putimage(x,y,p^,1);
until x>500;
freemem (p,size);

readln;
end.