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:

interface

uses 
// diverse units, die ich fürs hauptprogg brauche

type
TForm1 = class(TForm)
// ... ganz ganz viele typen halt ... u.a.:
procedure InitDaten; stdcall; //<--- hier Fehlermeldung, siehe unten

implementation

uses
// .. n paar formulare die ich brauche

const
dlltoload = 'ex_init.dll';

procedure InitDaten; external dlltoload;

// ... Rest vom Programm ....

InitDaten;

// ... noch mehr irrelevanter Code					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

library ex_init;

uses
   SysUtils,
   Classes,
   main in 'main.pas' // mein Hauptprogramm

procedure InitDaten;
begin
with Form1 do begin
// hier weise ich ein paar DBEdit-Felder die entsprechenden Felder 
// einer SQL-DB zu
end;
end;

Exports
   InitDaten index 1;

begin
end.					

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

uses 
   SysUtils, 
   Classes, 
   main in 'main.pas' // mein Hauptprogramm 

procedure InitDaten; 
begin 
  with Form1 do begin 
  // hier weise ich ein paar DBEdit-Felder die entsprechenden Felder 
  // einer SQL-DB zu 
  end; 
end;