procedure TForm1.tmr1Timer(Sender: TObject);
var
first, s:string;
begin
  s :=Label1.Caption;
  first :=s[1];
Delete(s, 1, 1);
Label1.Caption :=s+first;
end;