1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

function gibantwort(frage:String):String;
var
  antworten: array of String;
begin
  if frage='Wie geht es dir?' then begin
    setlength(antworten,6);
    antworten[0]:='Mir gehts sehr gut';
    antworten[1]:='Mir gehts gut';
    antworten[2]:='Es geht so';
    antworten[3]:='Mir gehts nicht so gut';
    antworten[4]:='Mir gehts schlecht';
    antworten[5]:='Lass mich in Ruhe';
    randomize();
    result:=antworten[random(5)];
  end
  else
    result:='Diese Frage versteh ich nicht';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Showmessage(gibantwort('Wie geht es dir?'));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Showmessage(gibantwort('Alles klar ?'));
end;