1:
2:

if User_Punkt = 100 then
  PC_Punkt = 200;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

...
if pos(lowercase('alt bist du'),lowercase(nachricht)) > 0 then 
begin 
  result := 'ziemlich alt, das genaue alter möchtest du aber garnicht wissen';
  exit; 
end;
if pos(lowercase('woher'),lowercase(nachricht)) > 0 then 
begin 
  result := 'aus Cybercity. Ist ''ne nette Stadt! Solltest du mal besuchen!'; 
exit; 
end;
...                    

1:
2:
3:
4:
5:
6:
7:
8:

max:=random(100)+1;

antwort:='';

for i:= 0 to max do
Antwort:= Antwort + char(random(25) + 65);

showmessage(Antwort);                    

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;                    

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:
29:
30:

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;                    

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:
29:
30:
31:
32:

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;