1 files changed, 3 insertions, 5 deletions
diff --git a/Plasmapropagation.lpr b/Plasmapropagation.lpr
index 5c914d5..5559f51 100644
--- a/Plasmapropagation.lpr
+++ b/Plasmapropagation.lpr
@@ -8,9 +8,7 @@ uses
   {$ENDIF}{$ENDIF}
   Classes, SysUtils, CustApp,
   { you can add units after this }
-  math, Physikunit, crt, protokollunit;
-
-var ErrorCode: longint;
+  math, Physikunit, protokollunit;
 
 type
 
@@ -45,7 +43,7 @@ begin
 
   zeitDatei:=0;
   zeitPhysik:=0;
-  simulation:=tSimulation.create(paramstr(1),prot);
+  simulation:=tSimulation.create(paramstr(1),prot,'simulation');
 
   while simulation.iteriereSchritt(start,zeitPhysik,zeitDatei) do ;
 
@@ -66,7 +64,7 @@ begin
   prot.schreibe('Das hat '+s+' gedauert,',true);
   prot.schreibe('  davon '+t+' für Dateizugriffe',true);
   prot.schreibe('und nur '+u+' für die eigentliche Physik!',true);
-  prot.Free;
+  prot.free;
 
   // stop program loop
   Terminate;