Imagenes en un TDBLookUp

[morta71]

Gracias por tu respuesta D&W, ya me funciona, creo, correctamente.

En tu código veo que creas el Bitmap con imgGraphic := TBitmap.Create; pero no se libera con la sentencia imgGraphic.Free; correspondiente, por lo que tras varias ejecuciones del Form me reportaba un error por "Access Violation".

Si implemento la sentencia imgGraphic.Free; en el cuerpo del procedimiento, obtengo el mismo error "Access Violation", por lo que realicé las siguientes modificaciones:

He definido la variable imgGrapphic como privada y el código queda de la siguiente manera:

Código Delphi [-]
 ...
   private
     { Private declarations }
     imgGraphic : TBitmap;
 ...
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   imgGraphic := TBitmap.Create;
 end;
 
 ...
 
 procedure TForm1.edtPaisGetImage(Sender: TObject;
   IsEmpty: Boolean; var Graphic: TGraphic; var TextMargin: Integer);
 var
   imgStream : TStream;
 Begin
 
   if not IsEmpty then
   try
     if not Table2.Active then Exit;
     if Table2.Fieldbyname('Diseno').IsNull then Exit;
     imgStream := Tstream.create;
     imgStream := Table2.CreateBlobStream(Table2.Fieldbyname('Diseno'),bmread);
 
     imgGraphic.LoadFromStream(imgStream);
     TextMargin := imgGraphic.Width + 2; //aquí establezco que el ancho sea siempre el ancho de la imagen que vamos a dibujar (he añadido 2 unidades para dar un poco de separación).
 
     Graphic := imgGraphic;
     imgStream.free;
   finally
   end;
 end;

procedure TForm1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  imgGraphic.Free;
end;

Muchas gracias D&W por tu colaboración.