Проблема с потоком

[timur oO]

необходимо выполнить копирование значение цвета пикселей из одного файла в другой (или какую-либо часть, это не важно):

var
BT1, BT2 : TBitMap;
JP1, JP2:TJPEGImage;
x,y : integer;

begin
 JP1:=TJPEGImage.Create;
 JP1.LoadFromFile(filename1);
 BT2:=TBitMap.Create;
 BT2.Assign(JP1);
 BT1:=TBitMap.Create;
 BT_CHN.Height:=100;
 BT_CHN.Width:=100;

 for x:=0 to 99 do
   for y:=0 to 99 do
     BT1.Canvas.Pixels[x,y]:=BT2.Canvas.Pixels[x,y];

 BT1.SaveToFile('E:\1.bmp');
end;

проблема в том, что при выполнении данного кода в потоке, то ничего не получается (выводится либо пустой файл, либо белая картинка, в которой в самом начале произошло копирование некоторых пикселей и всё). Если программу делать без потока, а обычным способом, то все работает.
подскажите что исправить нужно реализовать через поток

[Stilet]

Извини за глупый вопрос, а смысл такого копирования? Не проще ли скопировать файл?

[timur oO]

в дальнейшем будет необходимо копировать отдельные участки изображения, анализировать, составлять новое на основе проведенного анализа. размеры файлов будут бОльших размеров.
здесь приведен упрощенный код, с целью решения проблемы работы с TBitMap.