[Страдалецъ]

1. Узнать хандл окна, откуда будем брать цвет FindWindow()
2. Получить графический контекст этого окна GetDC()
3. Получить цвет пикселя по координатам GetPixel()

Код:

Var
  DC: HDC;
  Color: TColor;
begin
 DC := GetDC(FindWindow('Project5', ''));
 Color := GetPixel(DC, 40, 40);
 Caption := IntToHex(GetRValue(Color), 2)+IntToHex(GetGValue(Color), 2)+IntToHex(GetBValue(Color), 2);
end;