BIC wrong tag, String.IsEmpty replaced

Author: landrix

Samples/XRechnungUnit1.dfm

@@ -190,7 +190,7 @@ object Form1: TForm1
     Width = 129
     Height = 53
     Caption = 'Ausgabeformat'
-    ItemIndex = 1
+    ItemIndex = 0
     Items.Strings = (
       'UBL'
       'ZUGFeRD')

intf.Invoice.pas

@@ -497,7 +497,7 @@ class function TInvoiceUnitCodeHelper.MapUnitOfMeasure(const _UnitOfMeasure: Str
 begin
   Result := _DefaultOnFailure;
   _Success := false;
-  if _UnitOfMeasure.IsEmpty then
+  if _UnitOfMeasure = '' then
     exit;
   if SameText(_UnitOfMeasure,'st') or SameText(_UnitOfMeasure,'stk.') or SameText(_UnitOfMeasure,'stk') then
   begin