Работа с двумя Edit - Lazarus

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

Есть два Edit'а, и для второго написана команда, по которой при нажатии кнопки появляется определенный текст, но нужно сделать так, чтобы этот текст появился только если в первом Edit'е есть хотя-бы одна цифра(изначально там вообще ничего нет)

Решение задачи: «Работа с двумя Edit»

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

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String='Заданный текст';
begin
  if Length(Edit1.Text)>0 then Edit2.Text:=S;
end;

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

Объявлена переменная S типа String с начальным значением 'Заданный текст'
Определена процедура TForm1.Button1Click(Sender: TObject)
В процедуре проверяется условие Length(Edit1.Text)>0, которое означает, что в первом поле ввода есть текст
Если условие истинно, то значение переменной S присваивается второму полю ввода (Edit2.Text)
Конец процедуры