Changeset 38 for branches/overos/USystem.pas

Timestamp:

Jun 30, 2023, 3:36:57 PM (11 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• branches/overos/USystem.pas (modified) (2 diffs)

branches/overos/USystem.pas

@@ -1 +1 @@
 unit USystem;
-
-{$mode delphi}{$H+}
 
 interface
@@ -32 +30 @@
 destructor TSystem.Destroy;
 begin
-  Screen.Free;
-  Mouse.Free;
-  inherited Destroy;
+  FreeAndNil(Screen);
+  FreeAndNil(Mouse);
+  inherited;
 end;