TBitmap + поток

[hiho]

Добрый день. Возникла проблема с поиском пиксела в TBitmap. Ищу вот так:

function FindPixel(Scr : TBitmap; Rect : TRect) : TPoint;
var
  i,j : integer;
  Width, Height : integer;
begin
    Width := Rect.Right - Rect.Left;
    Height := Rect.Bottom - Rect.Top;
    for i := 1 to Width do for j := Height downto 1 do
      if (Scr.Canvas.Pixels[i,j] = RGB(254,69,95)) then begin
        ShowMessage(IntToStr(Scr.Canvas.Pixels[i,j]) + '  ' + IntToStr(i) + ':' + IntToStr(j)); //6243838
        Result := Point(i,j);
        Exit;
      end;
  end;
end;

Если пробую искать просто по клику мыши, то пиксель отлично находится, но как только переношу это всё в поток, то ничего не происходит.

Вызов из потока:

procedure TPrimeThrd.Execute;
var
  Scr : TBitmap;
begin
  Scr := TBitmap.Create;
  GetWindowRect(hWin, Rect);
  with Scr do begin
    Width := Rect.Right - Rect.Left;
    Height := Rect.Bottom - Rect.Top;
    BitBlt(Scr.Canvas.Handle, 0, 0, Width, Height, GetDC(hWin), 0,0, SRCCOPY);
  end;
  p := FindPixel(Scr, Rect);
  Scr.Free
end;

Вызов по клику:

var
  Scr : TBitmap;
...
  Scr := TBitmap.Create;
  GetWindowRect(hWin, Rect);
  with Scr do begin
    Width := Rect.Right - Rect.Left;
    Height := Rect.Bottom - Rect.Top;
    BitBlt(Scr.Canvas.Handle, 0, 0, Width, Height, GetDC(hWin), 0,0, SRCCOPY);
    p := FindPixel(Scr, Rect);

Если сохранять Bitmap в файл, то в обоих случаях скрин снимается верно.
Может кто проверить, а то у меня уже все идеи закончились