While do - Pascal

Формулировка задачи:

Как в условие после while записать текстовое выражение, при выводе которого в edit в действиях переменная типа integer будет увеличиваться на 1? Где ошибка?

var
  Form3: TForm3;
  i : integer;
  q : string;
 
  procedure TForm3.Button2Click(Sender: TObject);
begin
  i:=1;
while
 q :='Данные введены верно, вы можете перейти к расчёту зарплаты' do
begin Edit1.Text:=IntToStr(i+1)
end;
  end;

Заранее спасибо!

Решение задачи: «While do»

Листинг программы

var
  Form3: TForm3;
  i : integer;
  q : string;
 
  procedure TForm3.Button2Click(Sender: TObject);
begin
  i:=1;
while (q ='Данные введены верно, вы можете перейти к расчёту зарплаты') do
begin Edit1.Text:=IntToStr(i+1)
end;
  end;

Объяснение кода листинга программы

Объявляется переменная Form3 типа TForm3, которая предположительно является объектом формы.
Объявляется переменная i типа integer, которая будет использоваться для хранения целочисленных значений.
Объявляется переменная q типа string, в которую будет сохраняться текстовая информация.
Создается процедура Button2Click, которая будет выполняться при нажатии на кнопку.
Устанавливается начальное значение переменной i равное 1.
Затем начинается цикл while, который выполняется пока значение переменной q равно 'Данные введены верно, вы можете перейти к расчёту зарплаты'.
Внутри цикла значение поля Edit1 формы устанавливается равным результату сложения значения переменной i и 1, преобразованного в строку. Однако, в данном коде не представлена возможность изменения значения переменной q, что приведет к бесконечному циклу, в том случае если строка Данные введены верно, вы можете перейти к расчёту зарплаты не изменяется внутри тела цикла.