Почему объекты ведут себя по разному в описанных процедурах и основном блоке?

uses graphWPF;
 
type
  pos = record
    x, y: integer;
  end;
  switch_base = class
  private
    ind_clr_off, ind_clr_on: color;
    position: pos;
    status: boolean;
  
  public
    constructor Create(x, y: integer);
    begin
      position.x := x;
      position.y := y;
      ind_clr_off := rgb($32, $CD, $32); 
      ind_clr_on := rgb($FF, $8C, $00);
      fillrectangle(position.x - 40, position.y, 120, 120, rgb($AA, $AA, $AA));
      fillrectangle(position.x, position.y + 40, 40, 40, ind_clr_off);
    end;
    
    procedure switch;
    
    begin
      status := not status;
      if status then
        for var swc := 0 to 40 do
        begin
          fillrectangle(position.x, position.y + 40 + swc, 40, 40, ind_clr_off);
          fillrectangle(position.x, position.y + swc, 40, 40, ind_clr_on);
          fillrectangle(position.x - 40, position.y, 120, 40, rgb($AA, $AA, $AA));
          fillrectangle(position.x - 40, position.y + 80, 120, 40, rgb($AA, $AA, $AA));
          write(swc);
          sleep(5);
        end
      else
        for var swc := 40 downto 0 do
        begin
          fillrectangle(position.x, position.y + 40 + swc, 40, 40, ind_clr_off);
          fillrectangle(position.x, position.y + swc, 40, 40, ind_clr_on);
          fillrectangle(position.x - 40, position.y, 120, 40, rgb($AA, $AA, $AA));
          fillrectangle(position.x - 40, position.y + 80, 120, 40, rgb($AA, $AA, $AA));
          write(swc);
          sleep(5);
        end;
    end;
  end;
 
var
  switchlist := new List<switch_base>;
 
procedure keymap(key: key);
begin
  if key = system.Windows.Input.Key.Space then
    switchlist.Item[0].switch;
end;
 
begin
  window.Top := 0;
  window.Left := 0;
  writeln('run');
  OnKeyDown := keymap;
  switchlist += new switch_base( 100, 100);
  sleep(500);
  switchlist.Item[0].switch;
  sleep(1000);
  switchlist.Item[0].switch;
end.