lcl: disconnect AddDataModule, RemoveDataModule from TScreen on TScreen destruction (by Joost van der Sluis, issue #0014010)

git-svn-id: trunk@20669 -

lcl/include/screen.inc

@@ -96,6 +96,8 @@ var
 begin
   for HandlerType := Low(FScreenHandlers) to High(FScreenHandlers) do
     FreeThenNil(FScreenHandlers[HandlerType]);
+  AddDataModule := Nil;
+  RemoveDataModule := Nil;
   FreeThenNil(FHintFont);
   FreeThenNil(FIconFont);
   FreeThenNil(FMenuFont);