Файл занятый другим процессом

[Thandem]

Здравствуйте уважаемые программисты.

Был в поиске и нашел такой код,который меняет размер изображения.

var
 x, y: integer;
 Bmp: TBitmap;
 DC: HDC;
begin
 Bmp := TBitmap.Create;
 try
  Bmp.Width := Image1.Width;
  Bmp.Height := Image1.Height;
  DC := GetDC(Handle);
  for y := 0 to Image1.Height - 1 do
   for x := 0 to Image1.Width - 1 do
    Bmp.Canvas.Pixels[x, y] := GetPixel(DC, Image1.Left + x, Image1.Top + y);
  Bmp.SaveToFile('D:\1.bmp');
 finally
  Bmp.Free;
  ReleaseDC(Handle, DC);

Код нормальный,реально меняет размер,сохраняет файл.
Вот только почему то когда я хочу запаковать в архив изображение измененное этим самым кодом,винрар берет оригинал изображения.

Пример:
Взяли изображение с рабочего стола из папки картинки.
Обработали его,и программно сохранили на диск "C"
При попытке запаковать его в архив,винрар идет в папку на рабочем столе а не на диск ц.

Есть какой нибудь вариант исправить косяк..?((
Я думаю что изображение занято другим процессом,по этому винрар идет другим путем.

Возможно ли скопировать файл занятый другим процессом и как это сделать? Или может кто нибудь даст нормальный код для изменения размеров изображения. >_<