[tristan]

Он ругается на, то что я подчеркнул:

for i:=1 ot length(edit1.text) do

я думал сперва, что вы не на ту кнопку нажали и исправил на to, но как не исправляй всеравно ругается.