[StekloReZ]

Немного изменил, что бы не вбивать строки от руки.
(Грация)

Var
MyNick :string;
Title,GoTitle,NowTitle,Space: String;
Tim1: TTimer;
j,j2: integer;
procedure Init;
begin
Space:='                '; //пустая часть титла  - 16 любых передвигаемых символов
                           // их количество лучше не менять
MyNick:='xxxxxxxx';       //Тут пишем свой ник!
Title:='Мракобесие и Джаз, не поверишь, всё украдено до нас. (с) "Пикник"';                 //Сама строка титула

GoTitle:='';
Tim1:=Ttimer.Create(nil);
Tim1.Interval:=800;        //Тут задаём скорость переключения, мс (1секунда = 1000мс)
Tim1.OnTimer:=@OnTimerProc;
Tim1.Enabled:=true;
j:=0;
j2:=Length(Title);           // Узнаю длинну титула
GoTitle:=(Space+Title+Space);
end;
procedure Free;
begin
Tim1.Enabled:=False;
Tim1.Free;
end;
Procedure OnTimerProc;
begin
NowTitle:=Copy(GoTitle,j,16); 
SetTitle(NowTitle);
 if j<j2+16 then j:=j+1
    else j:=0; 
    
end;
Procedure SetTitle(title:string);
begin
buf:=#$0b;
WriteS(MyNick);
WriteS(title);
SendToServerEx(MyNick) ;
end;
begin
end.