Всем спосибо. Решил. Вдруг кому понадовится привожу пример:
все в onTimer
Код:
Inc(C1);
if C1<=39+tiCount then - 39 количество символов вмещяющихся в Label от края до края
if C1<=tiCount then laTitl.Caption:=copy(NamFil,1,C1)
else laTitl.Caption:=laTitl.Caption+' '-использовал два пробела
else C1:=0;
Admin: Пользуемся тегами!
Установки теже что ивыше +
laTitl.Alignment:=taRightJustify
laTitl=Label1
tiCount- количество выводимых символов
NamFil-стока с символами
