TList를 사용해 클래스의 정보를 목록으로 저장, 추룰하려고 합니다.
다음과 같이 코딩을 했는데 얻은 값이 모두 0으로만 나오네요.
어떤 작업이 더 필요한지 ...

type
Ttest = class
  a,
  b : Integer;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
tes : TTest;
begin
lstTest := TList.Create;

tes := TTest.Create;
tes.a := 1;
lstTest.Add(tes);
tes.Free;

tes := TTest.Create;
tes.a := 2;
lstTest.Add(tes);
tes.Free;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
vte : TTest;
begin

  vte := TTest.Create;
  vte := lstTest.items[0];
  memo1.lines.add(IntToStr(vte.a));
  vte.Free;

  vte := TTest.Create;
  vte := lstTest.items[1];
  memo1.lines.add(IntToStr(vte.a));
  vte.Free;

  lstTest.Free;

end;

lstTest는 TList 형으로 전역 변수로 선언되어 있습니다.