Створимо додаток в якому будемо розраховувати суму чисел які знаходяться між числами 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;