#pas
 for I:=0 to src.Height do for n:=0 to src.Width do if src.Pixels[n,i] <> clWhite then src.Pixels[n,i]:=clBlack;