diff --git a/lcl/include/dbmemo.inc b/lcl/include/dbmemo.inc
index 2e28b4e8e3..c58ed3b857 100644
--- a/lcl/include/dbmemo.inc
+++ b/lcl/include/dbmemo.inc
@@ -217,8 +217,7 @@ end;
 
 destructor TDBMemo.Destroy;
 begin
-  FDataLink.Free;
-  FDataLink:=nil;
+  FDataLink.Destroy;
   inherited Destroy;
 end;