Número de divisores

[jhonny]

Hola, no te preocupes, lo importante es que ya sabes y lee la guía de estilo para que no suceda...

En cuanto a la duda y siguiendo el camino que tomaste, lo que sucede es que N es el número que ingresas, vCantidad es el número que debes mostrar, así:

Código Delphi [-]
function cantidad_de_divisores(n:Integer): Integer;
var
  vNumero, vI, vCantidad: Integer;
begin
  vCantidad := 0;
  vNumero := StrToInt(Edit1.Text);

  for vI := 1 to vNumero do
    if (vNumero mod vI) = 0 then
      vCantidad := vCantidad + 1;

  Result := vCantidad;
end;

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var 
  n:Integer; 
  codigo:Integer;
begin
  val(Edit1.Text,n,codigo);
  Form1.Edit2.Text := FloatToStr(cantidad_de_divisores(n));
end;

Saludos.