Wyświetlanie na etykiecie koloru piksela, na który wskazuje mysz

Aby na etykiecie Label1 wyświetlić kolor piksela, na który wskazuje aktualnie kursor myszy umieszczamy na formularzu komponent TTimer (zakładka System) i tworzymy dla niego zdarzenie OnTimer:

Unit1.cpp

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   TCanvas *Canvas = new TCanvas();
   Canvas->Handle = GetDC(0);
   TPoint Point;
   GetCursorPos(&Point);
   TColor Color = Canvas->Pixels[Point.x][Point.y];
   delete Canvas;

   int RGB = ColorToRGB(Color);
   TVarRec args[3] = {GetRValue(RGB), GetGValue(RGB), GetBValue(RGB)};
   Label1->Caption = Format("#%.2x%.2x%.2x", args, 3);
}