[Liker]

Событие OnMouseMove
TTfmExample - имя формы



procedure TTfmExample.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
MyMouse:TMouse;
begin

Edit1.Text:=ColorToString(TfmExample.Canvas.Pixels [MyMouse.CursorPos.X,MyMouse.CursorPos.Y] );