Problem z image1

Akcja dzieje sie w delphi7
w komponencie image1 mam obrazek typu jpg 24 bity.
chcialem myszka wczytac kolor piksela nad ktorym znajduje sie kursor
ponizsza procedurką

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  label1.caption:=colortostring(image1.picture.bitmap.canvas.pixels[X,Y]);
end;

i po najechaniu na image1 w label1 pokazuje sie tekst "#FFFFFF" a image1
robi sie cale szare (jak forma).

nie wiem o co chodzi i dlaczego sie tak dzieje.
prosze o pomoc.

--
pozdrawiam
Keran

Try this: :]

 Caption:=ColorToString(GetPixel(GetDC(Image1.Parent.Handle),X+Image1.Left,Y+Image1.Top));

A twój sposób nie działa, dlatego, że masz obraz JPEG, a nie bitmapę. W ogóle nie znam bezpośredniego sposobu, na odczytanie pixela z JPEG'a. Tutaj, jest on pobierany z canvasa rodzica, na którym ten obraz jest rysowany. Stąd x+Image1.Left i y+Image1.Top.