Fórum Dúvida com Generics.Collection #403881

unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Generics.Collections, StdCtrls;
type
    TMeuObj=Class
      private
      aDamage: String;
      aName: String;
      public
        property Name : String Read aName Write aName;
        property Damage : String Read aDamage Write aDamage;
    End;
type
  TForm2 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    MinhaLista : TObjectList<TMeuObj>;
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var
  obj : TMeuObj;
  I : Integer;
begin
  MinhaLista := TObjectList<TMeuObj>.Create;
  MinhaLista.OwnsObjects := True;
  for I := 0 to 9 do
    begin
      obj := TMeuObj.Create;
      obj.Name := IntToStr(I)+'NAME';
      Obj.Damage := IntToStr(I);
      MinhaLista.Add(obj);
    end;
  for I := 0 to pred(MinhaLista.Count) do
    if MinhaLista.Items[I].Damage = '8' then
      Memo1.Lines.Add(Format('My name is %s and my damage is %s',[MinhaLista.Items[I].Name, MinhaLista.Items[I].Damage]));
  MinhaLista.Free;
end;
end.