Boşluklu Kayan Yazı Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.interval:=250;
caption:='deneme'+'  ***... burası boşluk uzunluğu bunu kendiniz ayarlaya bilirsiniz ...***  ';
end;
 
 
procedure tform1.timer1timer(sender: tobject);
begin
caption:=copy(caption,2,length(caption)-1)+ caption[1];
end;