[LACV]

Código Delphi [-]
Buena tarde e intetado de esta forma que es algo parecido  en vcl, peno no lo logro realizar.

procedure TS.reset;
var
  img: TBitmap;
begin
  with QueryProductos Do
  begin
    Active := false;
    Active := true;

    try
      img.Create;
      img.Assign(FieldByName('ImgProd'));
      Image1.Bitmap.Assign(img);
    finally
      img.Free;
    end;

  end;
end;