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