Problema con BitMap.Width

[fmtidona]

Tengo un BMP de 640x480, cuando lo quiero recorrer utilizando SCANLINE, me falla el limite BitMap.Width -1, for y := 1 to BitMap.Height do
begin
P := BitMap.ScanLine[y];
for x := 1 to BitMap.Width -1 do
begin
a := P[x];


el problema es que no me recorre toda imagen y solo una parte. Modificando los limites (mediante prueba y error) llegue a que la medida debe ser

for x := 1 to 1550 do

para que funcione. Esto a que se debe?