diff --git a/fcl/db/db.pp b/fcl/db/db.pp
index 4984be6540..046c8184d8 100644
--- a/fcl/db/db.pp
+++ b/fcl/db/db.pp
@@ -1845,6 +1845,9 @@ Function ExtractFieldName(Const Fields: String; var Pos: Integer): String;
 Function DateTimeRecToDateTime(DT: TFieldType; Data: TDateTimeRec): TDateTime;
 Function DateTimeToDateTimeRec(DT: TFieldType; Data: TDateTime): TDateTimeRec;
 
+procedure DisposeMem(var Buffer; Size: Integer);
+function BuffersEqual(Buf1, Buf2: Pointer; Size: Integer): Boolean;
+
 implementation
 
 uses dbconst,typinfo;
@@ -2130,6 +2133,21 @@ begin
   if i >= 0 then Result := PLookupListRec(FList.Items[I])^.Value;
 end;
 
+procedure DisposeMem(var Buffer; Size: Integer);
+begin
+  if Pointer(Buffer) <> nil then
+    begin
+    FreeMem(Pointer(Buffer), Size);
+    Pointer(Buffer) := nil;
+    end;
+end;
+
+function BuffersEqual(Buf1, Buf2: Pointer; Size: Integer): Boolean; 
+
+begin
+  Result:=CompareByte(Buf1,Buf2,Size)=0
+end;
+
 {$i dataset.inc}
 {$i fields.inc}
 {$i datasource.inc}