diff --git a/components/fpspreadsheet/fpspreadsheet.pas b/components/fpspreadsheet/fpspreadsheet.pas
index c46d7d0c9..b1ffe73fa 100755
--- a/components/fpspreadsheet/fpspreadsheet.pas
+++ b/components/fpspreadsheet/fpspreadsheet.pas
@@ -217,6 +217,9 @@ end;
 }
 procedure TsWorksheet.RemoveCallback(data, arg: pointer);
 begin
+  { The UTF8STring must be manually reseted to nil content, because
+    FreeMem only frees the record mem, without checking its content }
+  PCell(data).UTF8StringValue:='';
   FreeMem(data);
 end;