//Timer1, Label1, Label2, Edit1, Edit2, Edit2, Button1, Button2, Button3
var
  Form1: TForm1;
  Pt:TPoint; //Глобальна змінна

implementation

{$R *.dfm}

//Щоб форма перехвачувала події
procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.KeyPreview:=True;
end;

    //Для відображення координат курсора
procedure TForm1.Timer1Timer(Sender: TObject);
var
begin
    GetCursorPos(Pt);
    Label1.Caption:= 'X = ' + IntToStr(Pt.x);
    Label2.Caption:= 'Y = ' + IntToStr(Pt.y);
end;
    //Кнопка "Увімкнути координати"
procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled:=True;
end;
    //Кнопка "Вимкнути координати"
procedure TForm1.Button3Click(Sender: TObject);
begin
    Timer1.Enabled:=False;
    Label1.Caption:= '';
    Label2.Caption:= '';
end;
    //Записуємо координати при натисканні клавіші(KeyPreview:=True;)
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
    f: TextFile;
    fname,text:String;
begin
        //Якщо натиснута "R"
    if (getasynckeystate($52)<>0) and (Timer1.Enabled=True) then
    begin
        
                //Задаємо ім'я файла для запису координат
        if Edit1.Text='' then 
        begin
            ShowMessage('Задайте ім''я файла');
            Exit;
        end
        else 
        begin
            fname := Edit1.Text+'.dat';
        end;        
        
                //Відображаємо координати, що записуються
        Edit2.Text := IntToStr(Pt.x);
        Edit3.Text := IntToStr(Pt.y);
  
        //Запис у файл
        if Not FileExists(fname) then //якщо файла не існує
        begin
            AssignFile(f, fname);
            Rewrite(f);  //Перезапис файла
            text:=IntToStr(Pt.x)+' '+IntToStr(Pt.y); //Записуємо через пробіл
            writeln(f, text);
        end
        else begin 
            Append(f);  //Дописуємо файла
            text:=IntToStr(Pt.x)+' '+IntToStr(Pt.y);
            writeln(f, text);
        end;
        CloseFile(f); //Закриваємо файла
    end;
end;
    //Кнопка "Пуск"
procedure TForm1.Button1Click(Sender: TObject);
var
    Pt1:TPoint;
    f: TextFile;
    fname,koordx,koordy:String;
    n,p,l:Integer; //Для перебору масива
    mas: array of string; //Для зчитування файла
begin
    n:=0;
    SetLength(mas, 20); //Виділяємо пам'ять для масива
    
    fname := Edit1.Text+'.dat';
    
    if FileExists(fname) then begin //якщо файл існує    
    AssignFile(f, fname); //відкрити файл
    Reset(f); //приготувати для читання

        While not Eof(f) do begin  //поки не кінець файла викон. цикл
            Readln(f, mas[n]);  //читаємо рядок і заносимо у масив
            //Визначаємо координати
            p:= Pos(' ', mas[n]); //позиція пробілу
            l:=Length(mas[n]); //довжина рядка
            koordx:=Copy(mas[n],1,p-1); //текст координати x (рядок до пробілу)
            koordy:=Copy(mas[n],p+1,l); //текст координати y (рядок після пробілу)
            
            //Робимо клік по координатах
            GetCursorPos(Pt); //Визначаємо початкові координати курсора
            Pt1.x := Pt.x; //Запам'ятовуємо
            Pt1.y := Pt.y;
            Pt.x := StrToInt(koordx); //Нові координати курсора
            Pt.y := StrToInt(koordy);
            SetCursorPos(Pt.x,Pt.y); //Переходимо по координатах
            Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);//лівий клік миші
            Sleep(1000); //Для візуалізації курсора - "залипання"
            Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);
            SetCursorPos(Pt1.x,Pt1.y); //Повернення курсора в початкову точку
            Sleep(1000); //Затримка перед наступним кліком
            
            Inc(i);
          end;
    end
    else begin
    ShowMessage('Координати не записані');
    Exit;
    end;
    CloseFile(f); //Закриваємо файл    
    end;
end.