Бегущаая строка в Делфи

[Claster]

Нашёл интересный код, но чёто не пашит

procedure TForm1.Timer1Timer(Sender: TObject);
const
LengthGoString = 10;
Gostring = Delphi World'';
// Повторить столько символов - сколько в LengthGoString
const
i: Integer = 1;
begin
Label1.Caption := Copy(GoString, i, LengthGoString);
Inc(i); ----ошибка(Left side cannot be assigned to)
if Length(GoString) - LengthGostring < i then
i:=1; -----ошибка(Left side cannot be assigned to)
end;

[Kostia]

Lbale1.caption:='Hello, World! '
...
procedure TForm1.Timer1Timer(Sender: TObject);
var c:char;
    s:string;
begin
  s:=Label1.Caption;
  c:=s[1];
  Delete(s,1,1);
  s:=s+c;
  Label1.Caption:=s;
end;

[Claster]

Спасибочки