В чем ошибка?

[welcomeTo]

ДАНО НАТУРАЛЬНОЕ ЧИСЛО A. нАЙТИ СУММУ ДЕЛИТЕЛЕЙ ЧИСЛА А

procedure TForm1.Button1Click(Sender: TObject);
var a,s,i:integer;
begin
  a:=strToInt(Edit1.Text);
  for i:=1 to a do
    begin
      if a mod i = 0 then s:=s+i;
    end;
    Label2.Caption:='Сумма делителей= '+IntToStr(s);
end;

Неправильно считает. Например ввожу "12" , В ответе пишет 1635804

[welcomeTo]

Японский бог! Надо было обнулять переменную S ( s:=0 / бредовый дельфи