Histograma

[Javi_bcn]

Hola, yo tambien necesito saber como se hace el histograma de una imgen, y también me sería util saber como se ecualiza....
He intentado lo que poneis más arriba pero no hay manera... no tengo muchas nociones en esto y lo necesito para un trabajo..
Yo lo estaba haciendo de la siguiente manera pero sé que esta bastante mal, por no decir muy mal:

Procedure Mostrar_histograma(Image2:TImage;var Histograma:THist);
var
Histo:THistograma;
x,y:Integer;
w,h:Integer;
r,g,b:integer;
BM:TBitmap;
color2:Integer;
begin
BM:= TBitmap.Create;
BM.Height:=256;
BM.Width:=256;
BM.PixelFormat:=pf24bit;
Image3.Picture.Assign(BM);
BM.Free;
w:=Image1.Picture.Width;
h:=Image1.Picture.Height;
for y:=0 to h do
for x:= 1 to w do
begin
LlegirPixelRGB(Image2,X,Y,r,g,b);
color2:=(r+g+b) div 3;
Histo[color2]:= Histo[color2]+1;
r:=color2;
g:=color2;
b:=color2;
EscriurePixelRGB(Image3,X,Y,R,G,B);
end;
end;
no se si me podreis ayudar en algo, de todas formas gracias a todos de antemano.
un saludo!