Eigener Datentyp und nur bestimmte Werte

[Meflin]

Einfacherweise so:
TTierName = (tnHund, tnKatze, tnNasenbaer) Und damit kannst dann schön arbeiten... z.B.

Delphi-Quellcode:

case MyVar of
  tnHund: ...
  tnKatze: ...
  else ...
end;

usw.