[NumLock]

вариантов много...

-получаем THandle окна
-помещаем окно на передний план
-ждем немного (надо в этом варианте)
-получаем HDC его клиентской области
-получаем размеры его клиентской области
-создаем TBitmap с размерами клиентской области окна
-копируем HDC окна в TBitmap
-получаем цвет пикселя в заданных координатах
-удаляем TBitmap
-освобождаем HDC окна

можно подробнее:

Код:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
...
procedure TForm1.FormCreate(Sender: TObject);
var
  h: THandle;
  dc: HDC;
  rct: TRect;
  bmp: TBitmap;
begin
  h:=FindWindow(nil, 'Косынка');
  if h=0 then raise Exception.Create('!FindWindow');
  SetForegroundWindow(h);
  Sleep(1000);
  dc:=GetDC(h);
  Windows.GetClientRect(h, rct);
  bmp:=TBitmap.Create;
  bmp.Width:=rct.Right-rct.Left;
  bmp.Height:=rct.Bottom-rct.Top;
  BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, dc, 0, 0, SRCCOPY);
  Color:=bmp.Canvas.Pixels[32, 32];
  bmp.Free;
  ReleaseDC(h, dc);
end;