[ALexandr555]

Код:

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;

в том месте где выделил выскакивает ошибка "cannot open clipboard"

погуглил ответов не нашел
нужно скопировать выделенный текст, да и опера в это время подвисает