Приклад.

Створимо додаток в якому будемо розраховувати суму перших десяти чисел 1 2 3...10. Розташуємо на формі кнопку і Label для виведення інформації. Для кнопки зробимо такий обробник:

procedure TForm1.Button1Click (Sender: TObject);

var

i, sum: integer;

begin

i: = 1;

sum: = 0;

while (i <11) do

begin

sum: = sum+i;

i: = i +1;

end;

label1.Caption: = IntToStr (sum);

end;