Работа с текстом на примере программы Бегущая строка

строка является одним из элементов, привлекающим внимание пользователя, а также для экономии места на экране. Бегущие строки часто помещают на Web-сайтах. Сегодня мы добавим бегущую строку в Lazarus-приложение.
Что из себя представляет бегущая строка? Эта область, где «проезжает» текст.
В проекте мы будем использовать новые для нас компоненты: TTimer (Таймер)  c палитры System и TTrackBar (Бегунок)  с палитры CommonControls.

Компонент TTimer –инициируем через определенные промежутки времени событие OnTimer. В нашем случае через определенные промежутки времени мы будем изменять положение текста в бегущей строке.
Компонент TTrackbar –индикатор текущего значения, который позволяет посредством перемещения мышью бегунка интерактивно изменять это значение. Мы будем использовать бегунок для выбора скорости движения бегущей строки.

строка, достигнув края, появляется с противоположной стороны. В качестве дополнительного буфера для хранения всего текста использовать строковую переменную (тип String).

1. На форме разместите компоненты: Tlabel (Надпись), TTimer (Таймер), TTrackBar (Бегунок) так, как показано на рисунке.

двойной щелчок.
При изменении положения движка должен включиться таймер, свойству Interval компонента TTimer присваивается значение, равное позиции движка. Через указанный интервал будет происходить событие OnTimer.
Вводим в созданный обработчик TForm1.TrackBar1Change код:
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Timer1.Enabled:=true; //Таймер включить
//При перемещении движка Timer включается
// и его значение устанавливается равным позиции движка
Timer1.Interval:= TrackBar1.Position;
end;

строки».
1) На TLabel, поместим нужный текст (свойство Сaption). Здесь должно быть название любимого учебного предмета (например, химия).
2) Зададим размер (ширину) компонента в 250 пикселей (свойство Width).
Пусть направление текста будет справа-налево. Чтобы создать эффект движущегося текста, будем изменять текст следующим образом: вырезаем из него первый символ и помещаем его в конец строки.
5. Создадим обработчик события OnTimer для компонента TTimer. Для этого выполнив на нем двойной щелчок мышью.
Вводим в созданный обработчик события TForm1.Ttimer1Timer код:

procedure TForm1.Timer1Timer(Sender: TObject);
var s:string[200];
begin
s:=Label1.Caption; //Запоминаем строку
s:=s + s[1]; //перемещаем первый символ в конец строки
Delete(s,1,1); //Удаляем первый символ
Label1.Caption:=s; //Отображаем "сдвинутую" строку
end;