destructor TSimulator.Destroy();
 begin
   if Simulator <> nil then
   begin
     Simulator.Free;
     Simulator := nil;
   end;
 end;



initialization
 Simulator := TSimulator.Create();
 finalization
 Simulator.Destroy();

end.