Vergleich funktioniert nicht

[programmer021]

Hallo, ich hab folgendes Problem:
Ich will ein Programm in Delphi schreiben, was ein Textfeld namens "TextInput" hat.
Und da ist ein Button namens "Check".
Wenn man den Button drückt, soll (nur als Beispiel) geprüft werden, ob da "Hallo" im Textfeld steht.
Wenn ja, soll eine Meldung mit "Dir auch" angezeigt werden.
Hier ist der Code:

Delphi-Quellcode:

procedure TMainWindow.CheckClick(Sender: TObject);
begin
    if TextInput.text = 'Hallo' then
  begin
         ShowMessage ('Dir auch!');
end;
end;
end.

Aber wenn ich kompiliere und auf den Button klicke, dann passiert nichts!!!


Kann mir jemand helfen?


Viele Grüße
programmer021