Приклад.

Створимо додаток в якому будемо розраховувати суму чисел які знаходяться між числами a та b. Розташуємо на формі кнопку, Edit1, Edit2 для введення меж і Label для виведення інформації. Для кнопки зробимо такий обробник:

procedure TForm1.Button1Click(Sender: TObject);

var

i,a,b,sum: Integer;

begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

i := a;

sum:=0;

repeat

sum: = sum+i;

i := i + 1;

until(i > b);

label1.Caption: = IntToStr (sum);

end;