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;