Bitmaps

win32 apiet har denne metode:
COLORREF GetPixel(
    HDC hdc,    // handle of device context 
    int XPos,    // x-coordinate of pixel
    int nYPos     // y-coordinate of pixel
  );

Men jeg er ikke delphimand så jeg kan ikke lige lave et eksempel.

Hvis dit bitmap objekt hedder bm så skriver du bare
  color := bm.Canvas.Pixels[x, y];

Jeg kunne bruge det sidste svar, men jeg kan ikke gi point for det før du smider et svar ;o)

Prøv dette.
På form1 har du Image1 og Shape1
//Image1 skal sættes til autosize := true eller  til stretch := true;
procedure PickColor(X, Y: Integer);
var
  ForholdHeight, ForholdWidth: Real;
begin
//forhold hvis billedet ikke er vist i sin "naturlige" størrelse
ForholdWidth := Form1.Image1.Picture.bitmap.Width / Form1.Image1.Width;
Forholdheight := Form1.Image1.Picture.Graphic.height / Form1.Image1.height;

Form1.Shape1.Brush.Color := Form1.Image1.Canvas.Pixels[Round(X * ForholdWidth), Round(Y * ForholdHeight)];

end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
PickColor(X,Y);
end;

Her er så et svar :-)