Delphi: считывание пикселей с экрана для бота

[neadekwatt]

В общем, дело такое - хочу бота сделать для одной игры. И должен он считывать с окна игры определённые пиксели.
Накопал в интернете следующий код:

function DesktopColor(const X, Y: Integer): TColor;
 var
   c: TCanvas;
 begin
   c := TCanvas.Create;
   try
     c.Handle := GetWindowDC(GetDesktopWindow);
     Result   := GetPixel(c.Handle, X, Y);
   finally
     c.Free;
   end;
 end;

Однако работает эта функция медленно, поскольку для чтения каждого пикселя делает скриншот всего экрана, да и GetPixel, насколько я понял, тормозит работу.
План мой заключается в том, чтобы создать 1 процедуру и 1 функцию - процедура делает скриншот части экрана и сохраняет её в некую переменную, а функция возвращает цвет нужного пикселя из этой переменной. Вот процедура:

var
  skrinshot: TBitmap; //глобальная переменная для хранения скриншота

procedure do_skrinshot(x,y,x2,y2{какую часть экрана сохранять}: integer; Sender: TObject);
var
  DeskTop: TCanvas;
begin
  DeskTop := TCanvas.Create;
  try
    with DeskTop do
      Handle := GetWindowDC(GetDesktopWindow);
    with skrinshot.Canvas do
      CopyRect(Rect(x,y,x2,y2),
        DeskTop,
        Rect(x,y,x2,y2))
  finally
    DeskTop.Free;
  end
end;

А вот функцию я написать не могу. Я слышал, что можно быстро считывать пикселя с помощью scanline, но так и не понял, как это сделать(