Wenn ich dich richtig verstehe, wäre das Beste ein dynamisches Array:
Delphi-Quellcode:
var
ant: array of String;
i: Integer;
begin
SetLength(ant,2);
ant[0] := 'Hund';
ant[1] := 'Katze';
for i := 1 to Length(ant)
//Antwort mit ant[i-1] vergleichen
end;
Zu diesem Thema findest du auch hier genug Hilfe, brauchst einfach mal suchen.
Greetz
alcaeus