Devel Studio Текст по таймеру по кнопке.

```pascal
var
Timer1: TTimer; // Таймер
Button1: TButton; // Кнопка
Memo1: TMemo; // Поле для текста

procedure Timer1Timer(Sender: TObject);
begin
Memo1.Lines.Add('Ваш текст по таймеру.');
end;

procedure Button1Click(Sender: TObject);
begin
Timer1.Enabled := not Timer1.Enabled; // Включаем/выключаем таймер при нажатии кнопки
end;

begin
Timer1 := TTimer.Create(nil);
Timer1.Interval := 1000; // Интервал таймера в миллисекундах (здесь 1 секунда)
Timer1.OnTimer := Timer1Timer;

Button1 := TButton.Create(nil);
Button1.Caption := 'Нажми меня!';
Button1.OnClick := Button1Click;

Memo1 := TMemo.Create(nil);
Memo1.Align := alClient;

MainForm.InsertControl(Timer1);
MainForm.InsertControl(Button1);
MainForm.InsertControl(Memo1);
end.
```

Не забудьте добавить необходимые компоненты (Timer, Button, Memo) на форму в Devel Studio, а также подключить этот код к событиям компонентов (OnClick для кнопки, OnTimer для таймера). Код добавляет текст в поле Memo каждый раз, когда срабатывает таймер, и включает/выключает таймер при нажатии кнопки.