В чём ошибка

Передаю в функцию Image1.Picture.Bitmap и почему-то размеры картинки получаются равными 0.
Вот моя функция:

procedure CreateAndDrawHystogram(image: TBitmap);
var
i, j : integer;
r, g, b : byte;
pixel: PRGBTriple;
n : integer;
hystogram : array[0..255] of integer;
begin
n := image.Height; // здесь получается 0
for i := 1 to n do
begin
pixel := image.ScanLine[j];
for j := 1 to image.Width do
begin
Inc(pixel, 1);
r := pixel^.rgbtRed;
g := pixel^.rgbtGreen;
b := pixel^.rgbtBlue;
Inc(hystogram[r shl 16 + g shl 8 + b], 1);
end;
end;
end;