{FORMUNUZA BIR TIMER NESNESI EKLEYIN. TIMER'IN INTERVAL DEGERINI 100 YA DA DAHA ASAGI BIR DEGER YAPIP ONTIMER
OLAYINI ASAGIDAKI GIBI DUZENLEYIN!
EGER BASLIGINIZA BOSLUK KARAKTERLERINI EKLERSENIZ DAHA HOS
OLUR : 'BASLIK ' GIBI}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
CAPTION:=COPY(CAPTION,2,LENGTH(CAPTION)-1)+CAPTION[1];
end;