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

procedure test;
var
 DieVariable : string;
begin
 DieVariable := 'Normal';
 ShowMessage(DieVariable);     // das erste ShowMessage
 InDll(DieVariable);
 ShowMessage(DieVariable);     // das zweite ShowMessage
 FunktionPlatzhalter;
 FunktionPlatzhalter;
 FunktionPlatzhalter;
end;					

1:
2:
3:
4:
5:

procedure InDll(out Wert : string);
begin
 Wert := 'Geaendert';
end;
exports InDll;					

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

library MyLib;

procedure InDll(out MyString: WideString); safecall;
begin
  MyString := 'Geändert';
end;

exports
  InDll;

begin
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:

{ Wichtiger Hinweis zur DLL-Speicherverwaltung: ShareMem muss sich in der
  ersten Unit der unit-Klausel der Bibliothek und des Projekts befinden (Projekt-
  Quelltext anzeigen), falls die DLL Prozeduren oder Funktionen exportiert, die
  Strings als Parameter oder Funktionsergebnisse übergeben. Das gilt für alle
  Strings, die von oder an die DLL übergeben werden -- sogar für diejenigen, die
  sich in Records und Klassen befinden. Sharemem ist die Schnittstellen-Unit zur
  Verwaltungs-DLL für gemeinsame Speicherzugriffe, BORLNDMM.DLL.
  Um die Verwendung von BORLNDMM.DLL zu vermeiden, können Sie String-
  Informationen als PChar- oder ShortString-Parameter übergeben. }