Taskbarda kayan yazı oluşturma

// FORMUNUZUN ADI TASKBARDA KAYSIN
procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Interval:=250;//timerin değeri ayarlanıyor
caption:='::BU BİR DENEMEDİR:::::::::::::::::::::::::::::::::';//Form başlığı adı yapılandırılıyor
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
application.caption:=copy(caption,2,length(caption)-1)+caption[1];//uygulama başlığını taskbarda kaydır
end;
 
// LABEL ETİKETİNİ KAYDIRMA
procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Interval:=250;//timerin değeri ayarlanıyor
Label1.caption:='::BU BİR DENEMEDİR:::::::::::::::::::::::::::::::::';//Label başlığı adı yapılandırılıyor
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.caption:=copy(Label1.caption,2,length(Label1.caption)-1)+Label1.caption[1];//LABEL başlığını kaydır
end;