안녕하세요...
   처음으로 천리안, 프로그래머 동호회에 글을 올리는군요.

   제가 이렇게 고쳐봤는데요,

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
   Rgb : Colorref;
begin
     rgb :=GetPixel (Image1.Canvas.Handle,x,y);
     ShowMessage(Format('RGB(%d,%d,%d)', [GetRValue(rgb),GetGValue(rgb),GetBValue(rgb)]));
end;

   여기서, var aa: HDC 를 지웠습니다.
   왜냐하면 Image1.Canvas.Hnadle이 바로 HDC 핸들이기 때문이죠...
   그리고 Image1에 마우스를 누를때의 x, y좌표로 색을 구하고 보여주는 것이죠.
   그럼...