[worldmen]

Странно, но эта процедура ничего не выводит

Код:

procedure TForm1.BitBtn3Click(Sender: TObject);
var
  DC: HDC;
  Color: Cardinal;
  X ,Y  : word;
  R,G,B : Word;
begin
  x:= 100;
  y:= 100;

  DC := GetDC(0);
  Color := GetPixel(DC, X, Y);
  ReleaseDC(0, DC);

  R := GetRValue(Color);       
  G := GetGValue(Color);       
  B := GetBValue(Color);       

  Label5.Caption:='R= '+IntToStr(R);
  Label6.Caption:='G= '+IntToStr(G);
  Label7.Caption:='B= '+IntToStr(B);
End;

Хотя Color большое число.