Tmemo in DLL

[MiniMax]

Tag Zusammen,
ich bin mir sicher ich mache einen Fehler:

Ich mcöhte in einer Dll eine Memo erzeugen nur kommt beim starten der dll immer etwas mit kein übergeordnetes fenster??
Was mache ich falsch? Bitte schaut euch dass mal an:

Delphi-Quellcode:

library latlontowaypointlist;

{ 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. }


uses
  Classes, SysUtils,
  StdCtrls, math,forms,sharemem;


  type TWaypoint = record
       Event_Flag : String[1];
       holdtime: String[50];
       height: String[50];
       Kurs:String[50];
       Entfernung:String[20];
       Pos_Alt_Lat:String[50];
       Pos_Alt_Lon:String[50];
       Pos_Lat:String[50];
       Pos_Lon:String[50];
       ToleranceRadius:String[10];
       end;


var

      pointnr: 0000..9999;
      waypoint: Twaypoint;
      Memo1:tmemo;
      Kurs : real;              //' Der Kurs zwischen Start und Ziel
      Entfernung : real;        //' Die Entfernung zwischen Start und Ziels
      ToleranceRadiusw,holdtimew,heightw : real;


{$R *.res}

(...)

procedure ini(); register;
begin
  Memo1:= TMemo.create(nil);
  Memo1.clear;
  Memo1.lines.add('<Waypoints>');
  Memo1.lines.add('</Waypoints>');
end;

(...)