var
 metin:string=('1234567890...');
 str  :string=('1234567890...');
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
 i:integer;
begin
 metin:=str;
 for i:=1  to length(metin)+1 do
   begin
     str[i+1]:=metin[i];
     str[1]:=metin[i-1];
  end;
 caption:=str;
end;