[AND_REY]

В цикл вставить этот код и будет ч/б без градаций.

Код:

     F.Read(C1, 1); //R
     F.Read(C2, 1); //G
     F.Read(C3, 1); //B
     if (C1 + C2 + C3) Div 3 > 127 Then
      begin
       Line^[i].R:= $FF;
       Line^[i].G:= $FF;
       Line^[i].B:= $FF;
      end
     Else
      begin
       Line^[i].R:= $00;
       Line^[i].G:= $00;
       Line^[i].B:= $00;
      end;