В принцепе усли тебе надо оставить только черный цвет, а весь остальной убрать. то можно сделать вот так.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i,j: integer;
begin
for i:=0 to Image1.Picture.Width do
for j:=0 to Image1.Picture.Height do
if Image1.Canvas.Pixels[i,j]<>clBlack then
Image1.Canvas.Pixels[i,j]:=clWhite;
end;
или преобразовать картинку в 16 цвветов и сней работать. или ваще быстрый вариант это преобразовать в монохромный. Но тут есть свои косяки. Дело в том что если серый будет более темный чем надо он может замениться на черный.