procedure TForm1.FormCreate(Sender: TObject); begin timer1.Interval:=250; caption:='MERHABA ARAKADAŞLAR'; end; procedure TForm1.Timer1Timer(Sender: TObject); begin caption:=copy(caption,2,length(caption)-1)+caption[1]; end;