[0rfin]

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

GoTitle:='';
Tim1:=Ttimer.Create(nil);
Tim1.Interval:=300;        //Тут задаём скорость переключения, мс (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
if FromServer and (pck[1]=#$CC) then
begin
  pck:='';
  exit;
end;
end.