--- a/hedgewars/uTeams.pas	Sun Sep 11 21:02:11 2005 +0000
+++ b/hedgewars/uTeams.pas	Mon Sep 12 21:16:57 2005 +0000
@@ -140,9 +140,8 @@
 
 function AddTeam: PTeam;
 begin
-try
-   New(Result);
-except Result:= nil; OutError(errmsgDynamicVar, true) end;
+New(Result);
+TryDo(Result <> nil, 'AddTean: Result = nil', true);
 FillChar(Result^, sizeof(TTeam), 0);
 Result.AttackBar:= 1;
 if TeamsList = nil then TeamsList:= Result
@@ -162,9 +161,7 @@
       begin
       t:= tt;
       tt:= tt.Next;
-      try
       Dispose(t)
-      except OutError(errmsgDynamicVar) end;
       end;
 end;