Почему пустое изображение?

[Kronos913]

VF1_BMP[1] - глобальный бит-мап

procedure TForm3.VF1_AvtoLine(Sender: TObject);
var
  bmp1, bmp2: TBitMap;
  Bound, Rect: TRect;
begin
     bmp1:=TBitMap.Create;
     bmp1.PixelFormat := pf24bit;

     with Rect do begin   
       Left:=0;
       Top:=0;
       Right:=VF1_BMP[1].Width;
       Bottom:=VF1_BMP[1].Height;
     end;
     with Bound do begin  
       Left:=0;
       Top:=0;
       Right:=VF1_BMP[1].Width;
       Bottom:=VF1_BMP[1].Height;
     end;
     bmp1.Canvas.CopyRect(Rect, VF1_BMP[1].Canvas, Bound);
     
     {И делаю тестовую проверку}
     Image1.Picture.Assign(bmp1);
    
     bmp1.Free;
end;

И в итоге почему-то Image1 - пустое изображение

[Pavia]

Так размеры bmp1 кто задавать будет?