возвращает указатель на данные поля, размер которых записывается в nSize
function asBlob(nField: integer; var aData: PChar): integer;
function LoadBlodFieldDataToStream(ADbRes: TDBResult; AFieldIndex: Integer; AStream: TStream): Boolean; S: Integer; P: PChar; begin Result:= Assigned(ADbRes) and Assigned(AStream) and AFieldIndex < (AFieldIndex =< ADbRes.numFields); if Result then S:= ADbRes.asBlob(AFieldIndex,P); AStream.WriteBuffer(P,S); Result:= AStream.Size > 0; end;