Cekal jsem posouvani po pixelech, ne po znacich, to umi kazdy.
A kdyz uz po znacich, tak mam vyhradu k radku:
For i := 1 to Length(Titulek) do Titulek[i] := Application.Title[i+1];
mam dojem, ze pro i=Length(Titulek) chcete neexistujici znak. Lepsi by bylo:
for i := 1 to length(titulek)-1
A jeste lepsi mi prijde pouzit standardni funkci copy() asi takhle:
titulek := copy(titulek,2,length(titulek)) + copy(titulek,1,1);
application.title := titulek;
form1.caption := titulek;
Funkce copy() je preci jenom napsana blbuvzdorne a navic nemusite psat for-cyklus.