Составить в "паскале" программу, чтобы шар летел

Uses graphabc;
var i: integer;
 begin
  window.Init(0, 0, 800, 600, clwhite);
  window.IsFixedSize := true;
  pen.Color := clMediumVioletRed;
  pen.Width := 4;
  lockdrawing;
  for i := 1 to 150 do
  begin
    if(i=2)then sleep(100);
    circle(400, 600 - (i * 4), 80);
    redraw;
    window.Clear;
  end;
end.