Oto kodzik:
var
Suma : Integer;
Password : Integer;
begin
Password := 501234567;
Suma := 501234567;
if (Suma = Password) then begin
Label4.Caption := 'Działa ' end else
Label3.ShowHint := False;
Label4.Caption := ' Błąd - Niepoprawny Numer Seryjny';
Label1.Caption := 'Ładowanie programu zakończone niepowodzeniem';
end;
Zawsze wyświetla mi błąd pomimo że liczby są takie same :(