Vergleich funktioniert nicht

[Helmi]

Hallo,

warum nicht so:

Delphi-Quellcode:

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