[Klyaksa]

Доброго времени суток. Искал на форуме про Fastdib набрел на это. Если я компилирую этот код у меня вылетает ошибка.

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
split:integer;
  bmp:tfastdib;
  x,y,k: Integer;
  Lin1: PLine24;
  pc: PFColor;
begin
  for y:=0 to Bmp.AbsHeight-1 do //--Здесь ошибка
  begin
    Lin1:=Bmp.Scanlines[y];
    for x:=0 to Bmp.Width-1 do
    begin
      k:=(76*Lin1[x].r+150*lin1[x].g+30*lin1[x].b) div 256;
      if k < Split then k:=0 else k:=255;
      Lin1[x].r:=k;
      Lin1[x].g:=k;
      Lin1[x].b:=k;
    end;
  end;
end;

Вот ошибка .