Vergleich funktioniert nicht

[programmer021]

Danke, Leute!!!!!
Mit dem Source von Helmi hat es jetzt funktioniert.
Zu haentschman: Ich habe doch eben schon gesagt, woran das Problem liegt, oder??!
Wenn XYZ eingegeben wurde, dann wird doch bei der Stelle

Delphi-Quellcode:

begin
         if TextInput.text <> 'XYZ' then
  begin

schon abgebrochen, weil die Serial ja nicht ungleich XYZ ist und somit wird die Stelle

Delphi-Quellcode:

if TextInput.text = 'XYZ' then
    begin
      ShowMessage ('True serial entered!!! You are very good!!!');
    end;

niemals aufgerufen.

Und zu blawen: Auch wenn ich mir Delphi selbst beigringe und keine Ausbildung mache, werde ich in
Zukunft mehr auf sowas achten.

Viele Grüße
programmer021