Redimensionar TFrame al tamaño de TImage

[jars]

Hola Ecfisa.
Eso fue lo primero que probe pero el ancho o el alto no se ajustan.

Código Delphi [-]
  with vf[cont] do
  begin
     Frame := TfrImage.Create(nil);
     Frame.Name := Format('Frame%d',[cont+1]);
     Frame.Left := 10;
     TfrImage(Frame).sImage1.Picture.LoadFromFile('c:\tmp\imagenes\ArIyyAg.jpg');
     if cont = 0 then
       Frame.Top := 10
     else
        Frame.Top := vf[cont-1].Frame.Top+vf[cont-1].Frame.Height + 10 ;
      Frame.Height := TfrImage(Frame).sImage1.Height;
      Frame.Width := TfrImage(Frame).sImage1.Width;
      Frame.Parent:= ScrollBox1;
   end;