[Pyro]

можно попробовать так

PHP код:

function Fon(c: TColor): Boolean;
begin
  result := GetRValue(c)*GetGValue(c)*GetBValue(c) > 200*220*220;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
begin
  if not OpenDialog1.Execute then exit;
  Image1.Picture.LoadFromFile(OpenDialog1.FileName);
  with Image1.Picture do
    for i := 0 to Bitmap.Width - 1 do
      for j := 0 to Bitmap.Height - 1 do
        if Fon(Bitmap.Canvas.Pixels[i, j]) then
          Bitmap.Canvas.Pixels[i, j] := clgreen;
end; 


там где 200*220*220 можно подбирать
(пересохранить в bmp естественно)