нарисовать изображение ,движущееся из центра экрана в левый,верхний угол(в паскале)

uses
  GraphABC;
begin
  var w:=Window.Width;
  var h:=Window.Height;
  var x0:=w div 2 -1;
  var y0:=h div 2 -1;
  SetCoordinateOrigin(x0,y0);
  var k:=h/w;
  for var x:=0 downto -x0 do begin
    var y:=Trunc(k*x);
    Brush.Color:=clRed;
    Pen.Color:=clRed;
    Circle(x,y,10);
    sleep(50);
    Brush.Color:=clWhite;
    Pen.Color:=clWhite;
    Circle(x,y,15)
    end;
end.