Fórum Tela de Cores #366690

   Var Red, Green, Blue : Integer;
   Begin

       Red := GetRValue ( Image1.Picture.Bitmap.Canvas.Pixels[X, Y]);

       Green := GetGValue ( Image1.Picture.Bitmap.Canvas.Pixels[X, Y]);

       Blue := GetBValue ( Image1.Picture.Bitmap.Canvas.Pixels[X, Y]); 

    End;
    

Edit1.Tex := IntToStr (R);