1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Add(Edit1.Text);
end;                    

1:
2:

if trim( uppercase(Text) ) = 'HALLO' then
  Showmessage('Hallo auch!');                    

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:
33:

function CaseOfString(const Text: string; Strings: array of string): Integer;
begin
  Result := 0;

  while (Result < Length(Strings)) and (Strings[Result] <> Text) do
    Inc(Result);

  if Strings[Result] <> Text then
    Result := -1;
end;

function ReagiereAufText(const Text: string): string;
begin
  Result := '';

  case CaseOfString(Trim(LowerCase(Text)), ['hallo', 'tschüss']) of
    0: Result := 'Guten Tag!';
    1: Result := 'Machs Gut!';

    else Result := 'Tut mir leid, ich hab Sie leider nicht verstanden!';
  end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    Memo1.Lines.Add(Edit1.Text);
    Memo1.Lines.Add(ReagiereAufText(Edit1.Text));

    Edit1.Text := '';
  end;
end;                    

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

function CaseOfString(const Text: string; Strings: array of string): Integer;
begin
  Result := 0;

  while (Result < Length(Strings)) and (Strings[Result] <> Text) do
    Inc(Result);

  if Strings[Result] <> Text then
    Result := -1;
end;                    

1:
2:
3:
4:
5:

case CaseOfString(Text, ['Hallo', 'Guten Tag', 'Bye']) of // Hallo=0; Guten Tag=1 und Bye=2
  0: // Wenn Text = "Hallo" dann...
  1: // Wenn Text = "Guten Tag" dann...
  2: // Wenn Text = "Bye" dann...
end;