Всем огромное спасибо...
procedure TForm1.Button2Click(Sender: TObject);
var
p, i,j: integer;
r, g, b:byte;
begin
for i:=0 to Image1.Picture.Width do
for j:=0 to Image1.Picture.Height do
begin
p:= 37;
r := getRValue(Image1.canvas.pixels[i, j]);
g := getGValue(Image1.canvas.pixels[i, j]);
b := getBValue(Image1.canvas.pixels[i, j]);
If (r=g) and (g=b) and (r >p) then
Image1.canvas.Pixels[i, j] := rgb(255, 255, 255);
if (r=g) and (g=b) and (r <p) then
Image1.canvas.Pixels[i, j] := rgb(0, 0, 0);
if (r=g) and (g=b) and (r=p) then
Image1.canvas.Pixels[i, j] := rgb(255, 255, 255);
end;
end;
end.
вот что получилось в итоге.... скока бы оттенков серого небыло она отделит чёрный (определённого оттенка р ) так что кому нужно юзайте)