[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] );

[Страдалецъ]

Так зачем вам лишний MyMouse:TMouse; к тому же не созданный. У вас уже есть координаты в параметрах события, вот их и используйте:

Код:

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

[icWasya]

TfmExample писать не надо

Код:

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