Проблемы с TBitmap в потоке

[GrayDragon]

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

Собственно, сама проблема:
при использовании в потоке некоторых функций TBitmap (таких, как копирование канвы, загрузка изображений из файла) возникает системная ошибка №6 "неверный дескриптор".

Вот, набросал простой пример кода:

procedure TMyThread.Execute;
begin
  inherited;

  while not Terminated do
  begin
    CopyImage;
    sleep(1);
  end;
end;

procedure TMyThread.CopyImage;
var
  BM1, BM2  : TBitmap;
  Res       : LongBool;
begin
  BM1 := TBitmap.Create;
  BM2 := TBitmap.Create;
  try
    BM1.PixelFormat := pf24bit;
    BM2.PixelFormat := pf24bit;

    BM1.LoadFromFile('C:\1.bmp');
    if (BM1.Canvas.Handle = 0) or (BM1.Canvas.Handle = INVALID_HANDLE_VALUE) then
      raise Exception.Create('LoadFromFile: ' + SysErrorMessage(GetLastError));

    BM2.SetSize(BM1.Width, BM1.Height);
    Res := BitBlt(BM2.Canvas.Handle, 0, 0, BM2.Width, BM2.Height,
                  BM1.Canvas.Handle, 0, 0, SRCCOPY);

    if not Res then
      raise Exception.Create('BitBlt: ' + SysErrorMessage(GetLastError));
  finally
    BM1.Free;
    BM2.Free;
  end;
end;

При исполнении этого кода периодически возникает то первое исключение, то 2-е. Причем, чем меньше изображение 1.bmp, тем ошибка возникает чаще. Еще чаще ошибки возникают если "двигать" окно программы.
Естественно, если все это делать в основном потоке, то ошибок нет. Но это не интересно, т.к. что LoadFromFile, что BitBlt(StretchBlt) могут выполняться довольно продолжительное время (при большом объеме исходной бмпешки). По той же причине не интересен Synchronize. Да и вообще, по логике вещей synchronize тут не нужен, т.к. нет обращения к визуальным компонентам.

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

[Аватар]

По моему при работе с канвас в многопоточном приложении нужно использовать Canvas.Lock перед изменением и соответственно Unlock после сохранения. Даже если эта канвас не имеет ни какого отношения к основному потоку. Вроде некая кривизна в VCL

[GrayDragon]

Спасибо большое! Действительно помогло, а то я уже не знал, в какую сторону рыть.