Ejercicios Basicos 3 : Nuevo Numero con los Digitos Pares , Impares

function  Nuevo_Numero_con_los_Digitos_Pares (numero: integer): integer;
var
dig,nu,inc:integer;
begin
inc:=1;
nu:=0;
while (numero>0) do
  begin
 dig:=numero mod 10;  
 // para digitos pares                          // para digitos impares   
 if (dig mod 2)=0 then                     //      if (dig mod 2)<>0 then  
  begin                                            //         begin
 nu:=nu+(dig*inc);                      //          nu:=nu+(dig*inc);
 inc:=inc*10;                                //         inc:=inc*10;
 end else begin                              //          end else begin                    
  end;                                             //            end;
  numero:=numero div 10;
  end;
  Result:=nu;
end;

 // Forma de llamar a la función

begin
edit3.Text:=inttostr(clase.Nuevo_Numero_con_los_Digitos_Pares(strtoint(edit2.Text)));
end;

begin
edit3.Text:=inttostr(clase.Nuevo_Numero_con_los_Digitos_impares(strtoint(edit2.Text)));
end;