Нарисовать два эллипса, каждый из которых движется по кругу

uses 
  System.Collections.Generic, GraphABC;
 
type
  TEllipse =
  class
    A, B, X0, Y0 : integer;
    Angle : integer;
    
    t : integer;
    
    constructor (PA, PB : integer; PX, PY : integer; pt : Integer);
    begin
      A := PA;
      B := PB;
      X0 := PX;
      Y0 := PY;
      t := pt;
      LockDrawing;
    end;
    
    procedure Show;
    var 
      Alpha, phi : double;
      xpos, ypos : double;
      X, Y : integer;
    begin
      Alpha := DegToRad(Angle);
      for var i := 0 to 359 do
      begin
        phi := DegToRad(i);
        xpos := A * Cos(phi);
        ypos := B * Sin(phi);
        X := Trunc(X0 + xpos * Cos(Alpha) - ypos * Sin(Alpha));
        Y := Trunc(Y0 + xpos * Sin(Alpha) + ypos * Cos(Alpha));
        SetPixel(X, Y, clBlack);
      end;
    end;
    
    procedure Rotate;
    const R = 150;
    begin
      t := (t + 1) mod 360;
      Inc(Angle);
      
      X0 := Window.Width div 2 + Trunc(R * sin(DegToRad(t)));
      Y0 := Window.Height div 2 - Trunc(R * cos(DegToRad(t)));
      Show;
    end;
    
  end;
  
procedure UpdateEllipses(L : List<TEllipse>);
begin
  Window.Clear;
  foreach E : TEllipse in L do E.Rotate;
  Redraw;
end;
 
var 
  Flag : Boolean;
 
procedure MyKeyDown(key: integer);
begin
  Flag := true;
end;
 
var 
  L : List<TEllipse>;
begin
  L := new List<TEllipse>;
  L.Add(TEllipse.Create(30, 40, 50, Window.Height div 2, 0));
  L.Add(TEllipse.Create(30, 40, 50, Window.Height div 2, 180));
  OnKeyDown := MyKeyDown;
  Flag := False;
  repeat
    UpdateEllipses(L);
  until Flag;
end.