Создать приложение

[Фима]

Создать приложение , которое чётные числа , вводимые в строку редактирования , заносит ListBox1, нечётные в ListBox2.

[zdus2757]

var
N:Integer;
begin
N:=StrToInt(Edit1.Text);
N:=N mod 2;
if N = 0 then ListBox1.Items.Add(Edit1.Text) else ListBox2.Items.Add(Edit1.Text);
end

или

if (StrToInt(Edit1.Text) mod 2)=0 then ListBox1.Items.Add(Edit1.Text) else ListBox2.Items.Add(Edit1.Text);