Hallo...
Auch wenn die Logik noch falsch ist mal deinen Quelltext formatiert. Schau dir das mal an ob du den Logikfehler siehst.
Tipp: dein Programm kommt niemals zu dem Vergleich auf " = 'XYZ' " zu True
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.