[javicho_villa]

Muchas gracias por la pronta respuesta. libere esos objetos y mejoró

Código Delphi [-]
procedure TPresupuestoDatoForm.ListaDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var wic: TWICImage;
    Stream:TMemoryStream;
    DrawState: Integer;
    DrawRect: TRect;
begin
  if Dm.DetalleADOQuery.RecordCount>0 then
    if ( Column.FieldName = 'Imagen' ) then
      begin
        Stream := TMemoryStream.Create;
        TGraphicField(Dm.DetalleADOQuery.FieldByName('Imagen')).SaveToStream(Stream);
        Stream.Position := 0;
        wic := TWICImage.Create;
        wic.LoadFromStream(Stream);
        with TPicture.Create do
        try
          //Assign( Column.Field );
          Assign(wic);
          //Lista.Canvas.StretchDraw( Rect, BitMap );
          Lista.Canvas.StretchDraw(Rect, wic);
        finally
          wic.free;
          Stream.free;
          Free;
          ////DrawRect.free;
        end;
      end;
end;

aun sale el out of memory, te paso la imagen del nuevo mensaje.

https://www.clubdelphi.com/foros/att...1&d=1559596362

Muchas gracias por el apoyo.