TStringList-Objekte auslesen

[Taladan]

Ich fülle eine Stringliste mit folgenden unten angegeben code. also nicht direkt mit strings sondern mit objekten. was ja laut OH geht. Doch wie frag ich nun die einzelnen werte der objekte ab? Wie erhalte ich jetzt aus dem Wert 1 (Der zweite in der liste) den Namen Katze?

Delphi-Quellcode:

type
  ORasse = class(TObject)
  public
    Name : String[40];
    ID   : Integer;
  end;

var
  Rassenliste : TStringList;

procedure TSchritt2.RassenErstellen;
var Rasse : ORasse;
begin
    Rassenliste := TStringList.create;
    Rasse := ORasse.create;

    Rasse.Name := 'Hunde';
    Rasse.ID   := 0;
    Rassenliste.addobject(inttostr(Rasse.id), Rasse);

    Rasse := ORasse.create;
    Rasse.Name := 'Katzen';
    Rasse.ID   := 1;
    Rassenliste.addobject(inttostr(Rasse.id), Rasse);

    Rasse := ORasse.create;
    Rasse.Name := 'Vögel';
    Rasse.ID   := 2;
    Rassenliste.addobject(inttostr(Rasse.id), Rasse);
end;

   showmessage (rassenliste[1].rasse) //???? so zumindest nicht.