diff --git a/fcl/db/dataset.inc b/fcl/db/dataset.inc
index c11e2a1fc3..f929abcc0e 100644
--- a/fcl/db/dataset.inc
+++ b/fcl/db/dataset.inc
@@ -964,12 +964,6 @@ begin
     end;
 end;
 
-Function TDataset.TempBuffer: PChar;
-
-begin
-  Result := FBuffers[FRecordCount];
-end;
-
 Procedure TDataset.UpdateIndexDefs;
 
 begin
diff --git a/fcl/db/db.pp b/fcl/db/db.pp
index 0ee52837a5..3ab87ab498 100644
--- a/fcl/db/db.pp
+++ b/fcl/db/db.pp
@@ -1044,7 +1044,6 @@ type
     procedure SetRecNo(Value: Longint); virtual;
     procedure SetState(Value: TDataSetState);
     function SetTempState(const Value: TDataSetState): TDataSetState;
-    function TempBuffer: PChar;
     procedure UpdateIndexDefs; virtual;
     property ActiveRecord: Longint read FActiveRecord;
     property CurrentRecord: Longint read FCurrentRecord;