Hola Abaco, debes mostrarnos el error que te sale para poder ayudarte mejor, por lo que veo, cambia el punto por punto y coma del end del FormCreate solo el end de la unidad lleva punto.
Código Delphi
[-]
................................................................
procedure TForm1.FormCreate(Sender: TObject);
begin
if IsPerfectNumber(6) = true then
edit1.Text:= 'hola';
end;
Saluditos