procedure TForm1.Timer1Timer(Sender: TObject);
var
text: string;
begin
inc(schet);
//SetCursorPos(1120,465);
SetCursorPos(250,465);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0, 0, 0);
SetCursorPos(1050,465);
mouse_event(MOUSEEVENTF_LEFTUP,0,0, 0, 0);
keybd_event(VK_LCONTROL, 0, 0, 0);
keybd_event(Ord('C'), 0, 0, 0);
keybd_event(Ord('C'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0);
if schet=1000 then Timer1.Enabled:=false;
sleep(10);
Clipboard.Open;
text:=Clipboard.AsText;
Clipboard.Close;
if (copy(text,1,5)='Некто') and (text<>msg) then
begin
msg:=text;
Clipboard.Open;
Clipboard.AsText:=ai(copy(text,7,length(text)));
Clipboard.Close;
SetCursorPos(254,504);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0, 0, 0);
sleep(1);
keybd_event(VK_LCONTROL, 0, 0, 0);
keybd_event(Ord('V'), 0, 0, 0);
keybd_event(Ord('V'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0);
sleep(1);
keybd_event(VK_RETURN, 0, 0, 0);
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);
end;
end;