unit Prokrutka;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
   Timer1: TTimer;
  procedure FormCreate(Sender: TObject);
  procedure Timer1Timer(Sender: TObject);
private
  { Private declarations }
public
  { Public declarations }
end;

var
  Form1: TForm1;
  a: string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  a := 'www.magic-delphi.narod.ru - cool site!!!'
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: Integer;
begin
  Application.Title := a;
  Form1.Caption := a;
  for i := 1 to (Length(a) - 1) do
   a[i] := Application.Title[i + 1];
  a[Length(a)] := Application.Title[1];
end;

end.

Копирайт © 2007, Lanselot. Все права защищены.