function Odd(X：Integer): boolean;

var i: Integer; b: Boolean;begin i := 1; b := Odd(i); {是奇数返回真} ShowMessage(BoolToStr(b)); {True} i := 2; b := Odd(i); ShowMessage(BoolToStr(b)); {False}end;

if (x mod 2)=0 then showmessage(‘偶数‘) else showmessage(‘奇数‘) ;