2 Deklarationen?

[BKempf]

Erste Moeglichkeit: Du koenntest ein Trennzeichen einfuehren (etwa den senkrechten Strich, |, also das Pipe-Symbol) und den String entsprechend zerlegen (oder mit Pos() durchsuchen):

Delphi-Quellcode:

StringMitRichtigenAntworten:='Hund|Katze|Maus';
if Pos(GegebeneAntwort, StringMitRichtigenAntworten)>0 then
begin
  // richtige Antwort
end
 else
begin
  // falsche Antwort
end;

Zweite und vermutlich uebersichtlichere Moeglichkeit: TObjectList verwenden und die erlaubten Antworten da reinstopfen, oder alternativ ein Array verwenden.