Добро пожаловать на наш портал

Бегущая строка в Delphi 7.
Для создания понадобятся следующие компоненты:

Label со вкладки Standard

Timer со вкладки System

RadioButton (2 шт)

Меняем у RadioButton1 свойство Caption на Влево

Меняем у RadioButton2 свойство Caption на Вправо

Меняем у Label1 свойство Caption на любое например на www.delphi-lubitel.ucoz.ru

Заходим в обработчик событий onTimer таймера и пишем там:

Между Procedure и Begin

var
txt:string;

После Begin

txt:=label1.Caption;
if radiobutton1.Checked = true then
label1.Caption:=copy(txt,2,length(txt)-1)+copy(txt,1,1);

if radiobutton2.Checked = true then
label1.Caption:=copy(txt,length(txt)-1,1)+copy(txt,1,length(txt)-1);
end;

В итоге должно получиться так:

procedure TForm1.Timer1Timer(Sender: TObject);
var
txt:string;
begin
txt:=label1.Caption;
if radiobutton1.Checked = true then
label1.Caption:=copy(txt,2,length(txt)-1)+copy(txt,1,1);

if radiobutton2.Checked = true then
label1.Caption:=copy(txt,length(txt)-1,1)+copy(txt,1,length(txt)-1);
end;