Delphi-Quellcode:
uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := IfThen(Odd(StrToInt(Edit1.Text)), 'ungleich', 'gleich');
end;
Oder wie wäre es mit
if Edit1.Text[Length(Edit1.Text)] in ['1', '3', '5', '7', '9'] then {ungerade};
.
(eine Prüfung, ob überhaupt eine gültige Zahl in Edit liegt, überlaß ich Anderen)