for i := 0 to length(tel) do
           begin
             //SendMessage(cHwnd,WM_KEYDOWN,Integer(tel[i]),0);
              PostMessage(cHwnd,WM_KEYDOWN,Integer(tel[i]),0);
              sleep(80);
             end;