[[Caral]]

Hola
Interesante concepto amigo.
Pregunto: Para que sirve

Código Delphi [-]
var
  Form1: TForm1;
  FCaption: string;
  FLinea: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Memo1.Lines.LoadFromFile('C:\Prueba.TXT'); // cargar cualquier archivo .txt
   FCaption:= Memo1.Lines[FLinea];
   Caption:= FCaption;
   Timer1.Interval := 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Caption:= Copy(Caption, Length(Caption), 1) + Copy(Caption, 1, Length(Caption) -1);
  if FCaption = Caption then
  begin
  Inc(FLinea);
  Caption:= Memo1.Lines[FLinea];
  FCaption:= Caption;
  end;
end;

Por cierto me sobran variables.....
Saludos