не понял урок

[Инспектор ГУЛ]

Инструкция (цикл) WHILE
Эта инструкция применяется в том случае, когда нужно выполнить несколько раз определенные действия. Причем заранее не известно, сколько раз этот цикл выполнять – это становится ясно только во время работы программы.

Синтаксис инструкции такой:

while условие do инструкция;
или расширенный вариант:

while условие do begin
инструкция 1;
инструкция 2;
...
инструкция n;
end;
Здесь условие – переменная или выражение логического типа. Сначала вычисляется условие. Если условие ложно (False), то цикл не выполняется и сразу заканчивает работу. Если же условие истинно (True), то цикл выполняет инструкции, затем вновь возвращается к условию. Если условие опять возвращает True, цикл выполняется еще раз, и так до тех пор, пока условие не вернет False. Будьте осторожны с этим циклом! Не включайте туда условие, которое никогда не станет False. Компьютер в таком случае "зациклится", то есть зависнет. Обычно для этого внутрь цикла помещают счетчик – переменную целого типа. Только в отличие от цикла for, здесь переменная не увеличивает свое значение автоматически, за этим должен следить сам программист. Пример применения инструкции:

i := 1;
while i < 10 do begin
ShowMessage('Число равно ' + IntToStr(i));
i := i + 1;
end;
В этом простом примере мы целой переменной i присваиваем значение 1. Затем выполняем цикл while до тех пор, пока i не станет больше или равно 10. Если бы мы внутри цикла не указали "i := i + 1;", то этого никогда бы не произошло, и мы зациклили бы программу! Попробуйте выполнить этот пример в новом проекте, привязав код к обработке нажатия кнопки. В дальнейшей практике Вам не раз придется использовать этот цикл с куда более полезными примерами.

я не понял какую нужно написать программу с этим кодом.

i := 1;
while i < 10 do begin
ShowMessage('Число равно ' + IntToStr(i));
i := i + 1;
end;

И что она должна делать.

Если можете отправьте полный код программы пожалуйста... и объясните что откуда...

заранее всем мой молодёжный РЕСПЕКТ!

[Simply-Art]

Чё сказать

i := 1;
while i < 10 do begin
ShowMessage('Число равно ' + IntToStr(i));
i := i + 1;
end;

цикл while это цикл с ПРЕДУСЛОВИЕМ который делается пока условие между while и do истино.
вот с начало i=1 и while i < 10 do единица же меньше 10 значит продолжаем выполнять. Если не понял еще, пиши в личку.

[puporev]

//помести на форму кнопку Button, кликни по ней 2 раза
//в появившейся заготовке напиши этот обработчик события
procedure TForm1.Button1Click(Sender: TObject);
var i:integer; //переменная целого типа
begin
i := 1; //первое число=1
while i < 10 do //пока числа будут меньше 10(1..9)
  begin
   //будет выходить сообщение на экран Число равно 1..9
   ShowMessage('Число равно ' + IntToStr(i));
   //жмем Ок
   i := i + 1; //появляется следующее число
   //так повторяем, пока не появится 9, после этого програииа завершается
  end;
end;

end.
//нажми клавишу F9 и радуйся