summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--emails.resbin138696 -> 138936 bytes
-rw-r--r--unit1.lfm2
-rw-r--r--unit1.pas4
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
Binary files differ
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;