[[egostar]]

Hola

Código Delphi [-]

function IsPerfectNumber(lNumber:Integer):Boolean;
var
  i : Integer;
  x : Integer;
begin
//Inicializamos el resultado de la función para evitar el aviso de no definida
  Result := false; 
  if lnumber > 0 then
    begin
      for x := 1 to lnumber do
        begin
          if (lnumber mod x) = 0 then
             i := i + x;
        end;
      if i = lnumber then
       Result := true; //Cambia el nombre de la función por la palabra reservada Result
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if IsPerfectNumber(6) = true then 
     edit1.Text:= 'hola';
end; //Agrega ésta linea

end.

saludos