1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

   Hst_Data_In = public partial class
        private 
            ;
            ;
            ;
        public 
            property db_user: System.String read get_db_user write set_db_user;
            property db_pass: System.String read get_db_pass write set_db_pass;
            property db_server: System.String read get_db_server write set_db_server;
            property dbase: System.String read get_dbase write set_dbase;
            property hst_in: array of Typ_Hst_In read get_hst_in write set_hst_in;
                             
    end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

   Typ_Hst_In = public partial class
        private 
            ;
            ;
            ;

        public 
            property hst_funktion: System.String read get_hst_funktion write set_hst_funktion;
            property hst_shop_id: System.Int32 read get_hst_shop_id write set_hst_shop_id;
            property hst_erp_id: System.String read get_hst_erp_id write set_hst_erp_id;
            property hst_name: System.String read get_hst_name write set_hst_name;
            property hst_bild: System.String read get_hst_bild write set_hst_bild;
            property hst_bild_dir: System.String read get_hst_bild_dir write set_hst_bild_dir;
            property hst_info_in: array of Typ_Hst_Info_In read get_hst_info_in write set_hst_info_in;
    end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

 
method MainForm.button1_Click(sender: System.Object; e: System.EventArgs);
var   h_s_Data_In  : Hst_Data_In;
      hst_in       : array of Typ_Hst_In;
      hst_info_in  : array of Typ_Hst_Info_In;

begin

  h_s_Data_In   := new WindowsApplication4.hst_server.Hst_Data_In;


  h_s_Data_In.db_user              := 'root';
  h_s_Data_In.db_pass              := '';
  h_s_Data_In.db_server            := 'localhost';
  h_s_Data_In.dbase                := 'MyDbase';

  
  h_s_Data_In.hst_in[0].hst_funktion := 'N';

Bis hierhin geht es. 

Dann kommt nach dieser Anweisung zur Laufzeit:

Erstellen Sie eine Obektinstannz mit dem Schlüsselwort new und 
Eine Ausnahme (erste Chance) des Typs "System.NullReferenceException" ist in WindowsApplication4.exe aufgetreten.

->  h_s_Data_In.hst_in[0].hst_shop_id  := 1;
            ;
            ;
            ;                    

1:

h_s_Data_In   := new WindowsApplication4.hst_server.Hst_Data_In;                    

1:

h_s_Data_In.hst_in = new array of Typ_Hst_In;                    

1:

hst_in[0] = new Typ_Hst_In;                    

1:

  h_s_Data_In.hst_in[0].hst_funktion := 'N';