[Daniel2622]

Disculpa jhonny, vi la respuesta que le hiciste a mi pregunta en el foro varios
Siguí tus recomendaciones y el código me mostraba varios errores, trate de acomodarlo a lo que poco se, pero no me da e número de divisores sino el mismo numero que yo introduzco.
Este es mi código:
implementation

Código Delphi [-]
{$R *.lfm}

{ TForm1 }
Procedure cantidad_de_divisores(n:Integer);
var 
  c1,c2:Integer;
  s:Longint;
begin
  s:=0;
  c1:=1;
  c2:=1;
  for c1:=1 to n do
    if n mod c1=0 then
      s:=c1+c2;
  Form1.Edit2.Text:=FloatToStr(n);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var 
  n:Integer; 
  codigo:Integer;
begin
  val(Edit1.Text,n,codigo);
  cantidad_de_divisores(n);
end;

Esperó y me puedas seguir ayudando.

Gracias y saludos.