{$APPTYPE CONSOLE}
program Test;

uses
  System.Classes;

type
  TMyList = class(TStringList)
  protected
    function GetCount: Integer; override;
  end;
  
{ TMyList }

function TMyList.GetCount: Integer;
begin
  Result := inherited GetCount;
  Writeln('Call GetCount. Result: ', Result);
end;

var
  LList: TStrings;
  Li: Integer;
begin
  LList := TMyList.Create;
  try
    for Li := 0 to 4 do
      LList.Add('AAA');
    Writeln('Forward loop');
    for Li := 0 to LList.Count - 1 do begin
      Writeln(Li);
      LList.Delete(0);
    end;
    Writeln('End loop');
    Writeln('After loop count: ', LList.Count);
    Writeln;

    for Li := 0 to 4 do
      LList.Add('AAA');
    Writeln('Backward loop');
    for Li := LList.Count - 1 downto 0 do begin
      Writeln(Li);
      LList.Delete(Li);
    end;
    Writeln('End loop');
    Writeln('After loop count: ', LList.Count);
  finally
    LList.Free;
  end;
end.