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}
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.