Здравствуйте.
Так как у вас, с переменными не получится. Как сказал пользователь Владимир Мартьянов
Владимир Мартьянов придётся создать массив. Вот вам пример добавления значения в цикле.
procedure TForm1.Button1Click(Sender: TObject);
var
num: array [0..100] of Integer;
i: Integer;
begin
for i:=0 to 100 do num[i] := num[i] + 5;
end;