unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls,

  Clipbrd;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// *****************************************************************************
procedure MouseMoveAndClick(x, y, ps: integer);
begin
  SetCursorPos(x, y);

  sleep(ps);

  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, x, y, 0, 0);
end;

// *****************************************************************************
procedure CopyToClipboard(aText: string);
begin
  Clipboard.Open;
  try
    Clipboard.AsText := aText;
  finally
    Clipboard.Close;
  end;
end;

// *****************************************************************************
procedure myFunc;
const
  E_X = 400;
  E_Y = 450;
var
  buff: string;
  x, y: integer;
  r: TRect;
begin

  buff := '12046';

  // Copy To Clipboard----------------------------------------------------------
  repeat
    CopyToClipboard(buff);

    sleep(100);

    if Trim(buff) = Trim(Clipboard.AsText) then
      break;
  until false;

  // ---------------------------------------------------------------------------

{
  Clipboard.Open;
  try
    EmptyClipboard;
  finally
    Clipboard.Close;
  end;

}

  // Click в область
  x := E_X + r.Left;
  y := E_Y + r.Top;
  MouseMoveAndClick(x, y, 200);

  // Ctrl+A
  sleep(200);
  keybd_event(VK_CONTROL, 0, 0, 0); // Down
  keybd_event($41, 0, 0, 0); // Down
  keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); // Up
  keybd_event($41, 0, KEYEVENTF_KEYUP, 0); // Up

  // Ctrl+C (copy to Clipboard)
  sleep(200);
  keybd_event(VK_CONTROL, 0, 0, 0); // Down
  keybd_event($43, 0, 0, 0); // Down
  keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); // Up
  keybd_event($43, 0, KEYEVENTF_KEYUP, 0); // Up

  // Get from Clipboard
  sleep(200);
  if Clipboard.HasFormat(CF_TEXT) then
    buff := Clipboard.AsText;
end;

// *****************************************************************************
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if GetAsyncKeyState(VK_XBUTTON2) <> 0 then // VK_RBUTTON
  begin
    Timer1.Enabled := false;

    myFunc;

    Timer1.Enabled := true;
  end;
end;

// *****************************************************************************
end.