Здравствуйте, PavZ, Вы писали:

PZ>Исходник:
PZ>http://jdm.narod.ru/TestThread.zip

PZ>(Delphi 5)


При работе с Canvas из thread-а надо его "лочить"

bmp.Canvas.Lock;
try
for i:=0 to bmp.Width-1 do
for j:=0 to bmp.Height-1 do
begin
if bmp.Canvas.Pixels[i,j]<>clBlack then
PByte(Integer(mem)+j*bmp.Width+i)^:=1
else
PByte(Integer(mem)+j*bmp.Width+i)^:=0;
end;
finally
bmp.Canvas.Unlock;
end;

работает медленнее, но тут уж надо оптимизировать...