1:

function test_function(testvar: string): Boolean; stdcall; external 'test.dll';					

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:

type
  //hier steht die Deklaration von TForm
  
  TMyFunc = function(TestVar: String): Boolean; cdecl;
  //external ist meiner Meinung nach nicht nötig ...
  
//CODE, implementation usw.

procedure TForm1.Button1Click(Sender: TObject);
var
  TestFunktion: TMyFunc;
  hDLL: hModule;
  test: Boolean;
begin
  hDLL := LoadLibrary('meinedll.dll');
  //die DLL muss im gleichen Verzeichnis liegen, oder C:\Windows\system32\
  if hDLL <> 0 then begin
    @TestFunktion := GetProcAddress(hDLL, 'test_function');
    if @TestFunktion <> nil then begin
      //hier kannst du MyFunc als Funktion benutzen, z.B. :
      test := TestFunktion('testwort');
      //CODE
    end;
  FreeLibrary(hDLL);
  end;
end;					

1:
2:
3:
4:
5:

"Im Projekt ... ist eine Exception der Klasse EAccessViolation aufgetreten. 

Meldung: Zugriffsverletzung bei Adresse 000000000 Lesen von der Adresse 000000000' 

Prozess wurde angehalten. ....."					

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:
31:
32:
33:
34:

type 
  //hier steht die Deklaration von TForm 
   
var test_function(TestVar: pchar): Boolean; stdcall;
  
  @//external ist meiner Meinung nach nicht nötig ... 
   // stdcall is nen anderer aufruf als cdecl; bei stdcall liegen die parameter auf dem stack
   // und die funktion selber nimmt sie wieder vom stack runter mit RETN...
   // jaja is vereinfacht ausgedrückt ^^
   //grundsätzlich immer bei dlls stdcall verwednen wegen kompatibilitär zu c (geht auch
   //anders sach aber mal das es standart ist, desweiteren keinen string benutzen
   //sollte zwar auch eghen abr nen pchar is in dem fall auch wieder besser

//CODE, implementation usw. 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  hDLL: cardianl; 
  test: Boolean; 
begin 
  hDLL := LoadLibrary('meinedll.dll'); 
  //die DLL muss im gleichen Verzeichnis liegen, oder C:\Windows\system32\ 
  if hDLL > 0 then begin 
    @Test_funktion := GetProcAddress(hDLL, 'test_function'); 
    //bitte auf groß/kleinschreibung beim importieren achten
    // 'test_function' <> 'Test_function'
    if @Test_funktion <> nil then
    begin 
      
      test := Test_Funktion(pchar('testwort')); 
      //CODE 
    end; 
  FreeLibrary(hDLL); 
  end; 
end;					

1:

function test_function(testvar: string): Boolean; stdcall; external 'test.dll';