bugfix

3 files changed, 4 insertions, 2 deletions

diff --git a/emails.res b/emails.res
index e994dfa..4ff746d 100644
--- a/emails.res
+++ b/emails.res
diff --git a/unit1.lfm b/unit1.lfm
index 1724fbd..385e5ec 100644
--- a/unit1.lfm
+++ b/unit1.lfm
@@ -11,7 +11,7 @@ object Form1: TForm1
   OnDestroy = FormDestroy
   OnResize = FormResize
   OnShow = FormShow
-  LCLVersion = '1.6.2.0'
+  LCLVersion = '1.6.4.0'
   object Memo1: TMemo
     Left = 0
     Height = 584
diff --git a/unit1.pas b/unit1.pas
index 835bb19..84ef36f 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -90,8 +90,10 @@ begin
       raise exception.create(''''+s+''' ist kein gültiger Wert für ''Ton geben'' (ja|nein)!');
 
     s:=sl.grepFirst('^gültiger\s+Adressat\s*=');
-    if s<>'' then
+    if s<>'' then begin
+      erstesArgument(s,'=');
       ga:=s;
+    end;
 
     sl.free;
   end;