Написати програму, яка при натисканні на клавішу Button1, зчитує з рядку редагування Edit1 текст і, якщо цим текстом є рядок “автотекст”, то надпис на клавіші міняється на “введіть свій текст”, у противному разі – на клавішу виводиться текст, введений користувачем у Edit1, і у Edit1 виводиться текст “автотекст”.
Для цього нам спочатку треба на формі розташувати два об'єкти: кнопку Button1 та рядок редагування Edit1. Після цього встановити головну подію для кнопки Button1 подвійним натисканням на неї. Далі, у автоматично згенерованій процедурі procedure TForm1.Button1Click дописати алгоритмічну частину, яка матиме вигляд:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text=’автотекст’
then Button1.Caption:=' введіть свій текст '
else
begin
Button1.Caption:=Edit1.Text;
Edit1.Text:= ‘автотекст’;
end;
end;