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;
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;