procedure TForm1.Timer1Timer(Sender: TObject); const // Prostor koji odvajamo za prikaz teksta SCROLL_PROSTOR = 10; begin // Dio teksta koji se prikazuje Form1.Caption := Copy(ScrollTekst, ScrollPozicija, SCROLL_PROSTOR); // Povecanje skrol pozicije za jedan karakter Inc(ScrollPozicija); // Vrsimo resetovanje pozicije kada // skrolujuci tekst dodje do kraja if ScrollPozicija >= Length(ScrollTekst) then ScrollPozicija := 0; end;