1.
      procedure SafeInitForm;
   2.
      var
   3.
        V: TVariantArray;
   4.
      begin
   5.
        SetArrayLength(V, 0);
   6.
        ThreadSafeCall('InitForm', V);
   7.
      end;
   8.
       
   9.
      procedure ShowForm;
  10.
      begin
  11.
        frmDesign.Show;
  12.
      end;
  13.
       
  14.
      procedure SafeShowInitFormModal;
  15.
      var
  16.
        V: TVariantArray;
  17.
      begin
  18.
        SetArrayLength(V, 0);
  19.
        ThreadSafeCall('ShowForm', V);
  20.
      end;
  21.
       
  22.
      procedure MainInitForm;
  23.
      begin
  24.
        try
  25.
          SafeInitForm;
  26.
          SafeShowInitFormModal;
  27.
        finally
  28.
          FreeForm(frmDesign);
  29.
        except
  30.
          WriteLn('Error in InitForm!');
  31.
        end;
  32.
      end;