Vergleich funktioniert nicht

[programmer021]

Hallo, erstmal danke für die Antworten!
Zu Sir Rufo: Ja, da steht CheckClick.
Zu haentschman: Wie macht man in Lazarus einen Breakpoint?

Zu Allen: Vielleicht hilft es ja, wenn ich euch den tatsächlichen Code zeige, der ist nämlich vieel kompilizierter:

Delphi-Quellcode:

procedure TMainWindow.CheckClick(Sender: TObject);
    
  begin
         if TextInput.text <> 'XYZ' then
  begin
        ShowMessage ('Invalid serial entered!!!');
        if TextInput.text = 'XYZ' then
        begin
               ShowMessage ('True serial entered!!! You are very good!!!');
              end;
        end;
  
  end;    
  end.

Es ist nämlich ein CrackMe, wo man die richtige Serial eingeben muss. (In diesem Fall XYZ)
EDIT: Beim tippen ist mir grade selber aufgefallen, woran es liegt. Wen XYZ eingegeben wird, wird ja beim
ersten if schon abgebrochen...
Aber kann mir jemand sagen, wie man das lösen kann?

Viele Grüße
programmer021