Изображение мерцает

uses ABCObjects, GraphABC; 
 
var 
 Pers: SquareABC; 
 Pers_Glaz: CircleABC; 
 PersX, PersY: integer; 
 
 isLeft := false; 
 isRight := false; 
 
procedure Draw(); 
begin 
 Window.Clear; 
 //--------------------------------------------------------------------------— 
 Pers := new SquareABC(PersX, PersY, 50, clRed); //Первонаж 
 Pers := new SquareABC(PersX + 10, PersY + 33, 5, clBlack); 
 Pers := new SquareABC(PersX + 15, PersY + 33, 5, clBlack); 
 Pers := new SquareABC(PersX + 20, PersY + 33, 5, clBlack); 
 Pers := new SquareABC(PersX + 25, PersY + 33, 5, clBlack); 
 Pers := new SquareABC(PersX + 30, PersY + 33, 5, clBlack); 
 Pers := new SquareABC(PersX + 35, PersY + 33, 5, clBlack); 
 Pers_Glaz := new CircleABC(PersX + 12, PersY + 12, 6, clBlue); 
 Pers_Glaz := new CircleABC(PersX + 38, PersY + 12, 6, clBlue); 
 //--------------------------------------------------------------------------— 
 Redraw; 
end; 
 
procedure KeyDown(key: integer);//Нажатие 
begin 
 case key of 
 VK_A: isLeft := true; 
 VK_D: isRight := true; 
 end; 
end; 
 
procedure KeyUp(key: integer);//Отжатие 
begin 
 case key of 
 VK_A: isLeft := false; 
 VK_D: isRight := false; 
 end; 
end; 
 
procedure KeyPress(ch: char); 
begin 
 if isRight then PersX := PersX + 30; 
 if isLeft then PersX := PersX - 30; 
end; 
 
begin 
 LockDrawing; 
 PersX := 640;PersY := 600; 
 SetWindowSize(1280, 720); 
 Window.Caption := 'Кубик'; 
 
 OnKeyPress := KeyPress; 
 OnKeyDown := KeyDown; 
 OnKeyUp := KeyUp; 
 while true do 
 begin 
 Draw(); 
 end; 
end.

uses GraphABC;
 
type
  типПерсонаж = record
    x,y : Integer;
    
    constructor (x_,y_:integer);
    begin
      x:=x_; y:=y_;
    end;
    
    procedure Draw;
    begin
      Brush.Color := clRed;    Rectangle(x,y,x+50,y+50);
      Brush.Color := clBlack;  Rectangle(x+10,y+33,x+40,y+42);
      Brush.Color := clBlue;   Circle(x+12,y+12,6);  Circle(x+38,y+12,6);
      Redraw;
    end;
    
    procedure Move(dx,dy:integer);
    begin
      if (x+dx).InRange(0,window.Width-50) and (y+dy).InRange(0,Window.Height-50) then
        begin
          x+=dx;y+=dy;
        end;
      Draw;
    end;
  end;
  
var
  Персонаж := New типПерсонаж(640, 600);
 
 
procedure KeyDown(key: integer);//Нажатие 
begin
  Window.Clear;
  case key of 
    VK_A: Персонаж.Move(-30,0);
    VK_D: Персонаж.Move(+30,0);
  else
    Персонаж.Draw;
  end; 
end; 
 
begin 
  LockDrawing; 
  SetWindowSize(1280, 720); 
  Window.Caption := 'Кубик'; 
 
  Персонаж.Draw;
  OnKeyDown := KeyDown; 
  
end.