[[Caral]]

Hola
Un comienzo:

Código Delphi [-]
Var n: Integer;
Begin
 n:= StrToInt(Edit1.text);
 If (n Mod 2 = 0) then
 begin
 Memo1.Lines.Add(IntToStr(n));
 end else
 Showmessage('No es par');
end,

Saludos