حركة النص في الدالفي داخل لابل( label) و عنوان الفورم(form)

 حركة نص داخل label  أو عنوان الفورم
من عمل :عمر نغبال
نحتاج في العمل على timer+label

العمل على label +timer
procedure TForm28.Label1Click(Sender: TObject);
begin
a:='Entrez Le Mot De Passe SVP…..2017!...';
end;

procedure TForm28.Timer1Timer(Sender: TObject);
var i:integer;
begin

  label1.Caption:=a;
  for i:=1 to (length(a)-1) do
  a[i]:=label1.Caption[i+1];
 a[length(a)]:=label1.Caption[1];

end;

العمل على عنوان form +timer
procedure TForm1.FormCreate(Sender: TObject);
begin
a:='Gestion Commerciale...version1.8...';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
  application.title:=a;
  form1.Caption:=a;
  for i:=1 to (length(a)-1) do
  a[i]:=application.title[i+1];
  a[length(a)]:=application.title[1];

end;