Gerade Zahl oder Ungerade Zahl?

[Rakash]

vielen lieben dank!
ich habe nun diese form gewählt:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var x: integer;
begin
x := StrToInt(Edit1.Text);
if ODD(x) then
Label1.Caption := 'ungerade!'
else
Label1.Caption := 'gerade!';
end;

aber ich hab parallel noch eine mit mod erstellt.