[Abaco]

Otra dudilla rapida aprobechando:
Que hago mal aqui??

Código Delphi [-]
function IsPerfectNumber(lNumber:Integer):Boolean;
var
  i : Integer;
  x : Integer;
begin
  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
       IsPerfectNumber := true;
    end
end;

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