Некорректная работа функции в потоке.

[TwiX]

Имеется функции

procedure Extract(img: TBitMap);
var
  _r, i,j, r,g,b: Integer;
  cl: TColor;
  tmp: TBitmap;
begin
  _r:=51;
  r:=95;
  g:=152;
  b:=169;

  img.SaveToFile('1.bmp');

  for i := 0 to img.Width - 1 do
  begin
    for j := 0 to img.Height - 1 do
    begin
      cl:=img.Canvas.Pixels[i,j];
      if (abs(GetRValue(cl)-r)<_r)
         and (abs(GetGValue(cl)-g)<_r)
         and (abs(GetBValue(cl)-b)<_r)
      then
        img.Canvas.Pixels[i,j]:=clBlack
      else
        img.Canvas.Pixels[i,j]:=clWhite;
    end;
  end;

    img.SaveToFile('11.bmp');

    DeNoise(img);

    img.SaveToFile('111.bmp');
end;

Если её запускать, допустим, по нажатию на кнопке, то всё будет нормально, а если в потоке, то больше чем в 50% случаев получаю "плохой" результат. Скрине ниже

[Zeraim]

Canvas.Pixels не так шустро работает, особенно когда много проходов цикла, может по 5-10 секунд зависать 8)
Попробуй WinAPI, может спасёт.

[InternetStranger]

Приведите код потока, где и как именно вызывается эта функция. Если я правильно догадываюсь, то в качестве аргумента передается что-то вроде form1.Image1.Picture.Bitmap.
Напрямую обращаться к VCL - компонентам из дополнительного потока нельзя (они однопоточны). Поэтому и возникают самые разные "непонятности".

Решение:
1) Данную функцию нужно перенести в модуль потока и объявить как его метод. Затем вызывать в рамках синхронизации потока. Что-то вроде этого:

TThreads = class(...)
      ........
      procedure Extract(img: TBitMap);
      ........
end;

procedure TThreads.Extract(img: TBitMap);
procedure Extract(img: TBitMap);
var
  _r, i,j, r,g,b: Integer;
  cl: TColor;
  tmp: TBitmap;
begin
       ....
end;

// А в исполняемой части потока вызывать ТОЛЬКО в рамках синхронизации

procedure TThreads.Execute;
begin
       .....
       Synchronize (Extract( img_TBitMap )); // Приостановить доп. поток, и синхронизировать его с главным. 
       .....
end;

2) Если нет возможности перенести в модуль потока, то аналогично создается метод-обертка, внутри которого вызывается Extract(...):

procedure TThreads.Obertka;
begin
       Extract( img );
end;

procedure TThreads.Execute;
begin
       .....
       Synchronize ( Obertka );  
       .....
end;

upd: Прочитал соседний пост. Все равно рекомендую так попробовать.
Synchronize - это не только для работы с VCL, это грамотная синхронизация 2х конкурирующих потоков. Без нее они бесцеремонно будут вклиниваются друг к другу (что и наблюдается у Вас в 50% случаях - как повезет), могут даже прервать обработчики по среди их работы.

[TwiX]

Приведите код потока, где и как именно вызывается эта функция. Если я правильно догадываюсь, то в качестве аргумента передается что-то вроде form1.Image1.Picture.Bitmap.

Нет. В потоке создаётся сам BitMap, в него грузится картинка из jpeg (Assign'ом), полученного при помощи InDy.