В edit1,2,3 вводишь числа, потом их делешь 2 mod edit и смотришь равно ли это нулю иди нет если не равно тогда подходит, берешь второе число такие действия если оно подходит тогда сравниваешь с первым и смотришь что больше и так с третьем.
var
n1,n2,n3,max:word;
begin
if 2 mod strtoint(edit1.text) <> 0 then n1:=strtoint(edit1.text);
if 2 mod strtoint(edit2.text) <> 0 then n2:=strtoint(edit2.text);
if 2 mod strtoint(edit3.text) <> 0 then n3:=strtoint(edit3.text);
if n1>>n2 then max:= n1 else max:=n2;
if max<n3 then max:=n3;
edit4.text:= inttostr(max);
на форме 4 edit и одна кнопка