diff --git a/packages/fcl-db/src/sqlite/customsqliteds.pas b/packages/fcl-db/src/sqlite/customsqliteds.pas
index 65af977c82..21a84013a6 100644
--- a/packages/fcl-db/src/sqlite/customsqliteds.pas
+++ b/packages/fcl-db/src/sqlite/customsqliteds.pas
@@ -402,8 +402,18 @@ begin
 end;
 
 procedure TCustomSqliteDataset.ClearCalcFields(Buffer: PChar);
+var
+  i: Integer;
+  RecordItem: PDataRecord;
 begin
-  //todo
+  if FCalcFieldList = nil then
+    Exit;
+  RecordItem := PPDataRecord(Buffer)^;
+  for i := FieldDefs.Count to FieldDefs.Count + FCalcFieldList.Count - 1 do
+  begin
+    StrDispose(RecordItem^.Row[i]);
+    RecordItem^.Row[i] := nil;
+  end;
 end;
 
 constructor TCustomSqliteDataset.Create(AOwner: TComponent);