[NumLock]

вариант без TBitmap:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  h: THandle;
  dc: HDC;
  rct: TRect;
begin
  h:=FindWindow(nil, 'Косынка');
  if h=0 then raise Exception.Create('!FindWindow');
  SetForegroundWindow(h);
  Sleep(1000);
  dc:=GetDC(h);
  Windows.GetClientRect(h, rct);
  Color:=GetPixel(dc, 32, 32);
  ReleaseDC(h, dc);
end;