[delphihelp]

Все, наконец то все записалось. В прцедуре на кнопку button1 нужно вместо

Код:

for i:=1 to length(mess)-1 do

написать

Код:

for i:=0 to length(mess)-1 do  

и тогда все заработает. Спасибо большое что помогли.