Создадим приложение, в котором текст из строки ввода будет копироваться без изменений в метку и добавляться в многострочный редактор.
Двойным щелчком назначьте на кнопку «Ввод» событие OnClick
procedure TForm1.BitBtn1Click(Sender: TObject);
Begin
Label1.caption:=edit1.Text; //повторяем строку в метке
memo1.Lines.Add(edit1.text); //переносим в строку в редактор
edit1.Clear; //Очищаем строку ввода
edit1.SetFocus; //Передаем фокус ввода
end;
Назначьте событие OnActivate для формы, в котором опишите передачу фокуса ввода для компонента Edit, а также обработайте кнопку «Выход» и «Очистка»
