جلب قيمة البكسيل

[Goblin]

[COLOR="RoyalBlue"]السلام عليكم,

كنت اتسائل عن كيفية جلب قيمة البكسيل الحالية من صورة من خلال حدث (OnMouseMove), مثال:[/COLOR]

كود :

[align=left]Labe1.Caption := IntToStr(Image1.Picture.Bitmap.Canvas.Pixel[X,Y])[/align]

[COLOR="RoyalBlue"]لكن هذه الطريقة تاخذ وقت طويلا اثناء اجراء عمليات طويلة و استدعائها باستمرار.
فهل هناك طريقة اخري لجلب قيمة البكسيل (مع تجنب المؤشرات Pointers) ?[/COLOR]