Function PixelColor(Image:TGraphic;X:Integer;Y:Integer):TColor;
var bild:TBitmap;
begin
  Bild:=TBitmap.Create;
  try
    Bild.Assign(Image);
  finally
    Result:=Bild.Canvas.Pixels[X,Y];
    FreeAndNil(Bild);
  end;
end;

//Beispielaufruf:
Form1.Canvas.Pen.Color:=PixelColor(Image1.Picture.Graphic,100,100);