Code vereinfachen? (Arrays)

[Nonsense]

Hiho,
habe einen kleinen Eliza-Clone gebstelt.
Nun wollte ich den Code optimieren und wollte fragen, ob ihr ein paar Tipps in Sachen Arrays habt. Habe nämlich alle Antworten von Eliza in solche geschrieben.

Code:

  if NumQuest = 1 then
  begin
   RanQuest := Random(3);
   case RanQuest of
    0: AIMsg := Array02[0];
    1: AIMsg := Array02[1];
    2: AIMsg := Array02[2];
   end;
  end;

  if NumQuest = 2 then
  begin
   GetName   := EditUser.Text;
   UserName  := GetName;
   AIMsg     := 'Hallo ' + GetName + '.';
  end;

  if NumQuest = 3 then
  begin
   RanQuest := Random(3);
   case RanQuest of
    0: AIMsg := Array03[0];
    1: AIMsg := Array03[1];
    2: AIMsg := Array03[2];
   end;
  end;

 ...
etc.

Danke im Voraus!