crear una imagen

[Amilius]

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. *)
   ...