Wie schon eingangs erwähnt:
procedure GetTiere(const Dest: TStrings);
Hält Dir zusätzlich die Möglichkeit offen mit
Dest.Clear;
die übergebene Liste zu löschen oder aber die Daten unten oder sonstwo anzuhängen. Miteiner Funktion bist Du nicht so flexibel.
Gruß
K-H
P.S.
Irgendwann vergisst jeder einmal die Liste wieder frei zu geben.