Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нём некорректно. Вам необходимо обновить браузер или попробовать использовать другой.
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;
