diff options
-rw-r--r-- | emails.res | bin | 138696 -> 138936 bytes | |||
-rw-r--r-- | unit1.lfm | 2 | ||||
-rw-r--r-- | unit1.pas | 4 |
3 files changed, 4 insertions, 2 deletions
Binary files differ @@ -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 @@ -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; |