[charly911]

Solution:

try
    s:=TextPic[strIndex]; //????????? ?????? ???????
    SendMs(s, chat);      //??????? ? ???
    inc(strIndex);        //????????? ??????
  Except // <--<-- Change this!!
    ExecuteTimer.Enabled:=False; //?????????
  end;

Charly.