erzeugeLegende: avoid NPE

1 files changed, 3 insertions, 1 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 78394ff..dddafa4 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -10026,6 +10026,7 @@ begin
   beschriftungsschritte[1].faktor:=1;
   rahmen:=false;
   bekannteBefehle:=tMyStringList.create;
+  fontRenderer:=nil;
   repeat
     if not f.metaReadln(s,true) then begin
       gibAus('Unerwartetes Dateiende in '''+paramstr(1)+'''!',3);
@@ -10261,7 +10262,8 @@ begin
   setLength(beschriftungen,0);
 
   close(img);
-  fontRenderer.free;
+  if fontRenderer<>nil then
+    fontRenderer.free;
   result:=true;
 end;