Ejercicios Basicos 2: Verificar si es Capicua

function capicua(numero:integer): boolean;
var
aux:integer; aux2:integer;
begin

aux2:=invertir(valor);       // se llama a la función invertir 
aux:=valor;
if (aux2=aux) then
  begin
  result:=true;
  end else begin
  result:=false;
  end;
end;

 // Formar de llamar a la función  dentro del boton de un formulario

begin
if (clase.capicua(strtoint(edit1.Text))=true) then
  begin
  edit3.Text:='es capicua';
    end else begin
    edit3.Text:='no es capicua';
  end;
end;