用scanline取BMP上某点的颜色，代码如下，为什么可以编译，运行时却出错呢？

procedure TForm1.Image1Click(Sender: TObject);
var
x,y:Integer;
Pixs:array of TColor;
begin

image1.Picture.loadfromfile('d:\001.bmp');
Pixs:=image1.Picture.Bitmap.ScanLine[0];
if Pixs[0]=clwhite then showmessage('www');

end.

请路过的朋友不吝赐教啊。。