Código Delphi [-]
  Image := TImage.Create(form1);
  with image do
  begin
    image.Picture.LoadFromFile('Z:\Pedro\rave\definitivo\iconos\camera.bmp');
    image.Parent := Self;
  end;

Código Delphi [-]
procedure TForm1.ToolButton20Click(Sender: TObject);
begin
  image := timage.Create(form1);
  try
    begin
       with image do
       begin
         try
           Picture.LoadFromFile('Z:\Pedro\rave\definitivo\iconos\camera.bmp');
         except
           showmessage('direccion no');
         end;
         
           Parent := Self;
           Visible := true;
           Stretch := True; //para que se acode el image por que puedes
                             //andar creando pero su tamaño puede ser width = 0 y 
                            //height = 0
           
       end;
    end;
  except
    showmessage('no lo crea');
  end;
end;

Código Delphi [-]
   function CrearBitmapDeArchivo(const filename:string):Tbitmap;
   begin
     try
         result:=Tbitmap.create;
         with result do
         begin
           HandleType:=bmDib;/* "Device Independet Bitmap", si quieres hacer tratamiento de imagen. */
           LoadFromFile(filename);
           PixelFormat:=pf24bit;  // Si quieres tratar la imagen.
           dormant;{ Opcional para reducir consumo de recursos de GDI y recomendado para tratamiento de imágenes }
        end;
     except
         result:=nil;
     end;
   end;
   
   ...
   imagen:Tbitmap;
   ...
   imagen:=CrearBitmapDeArchivo('logo.bmp');
   ...
 imagen.free; (* " freenil(imagen) " si es posible que se llame con la referencia imagen al destructor del objeto más de una vez. *)
   ...