Fehler beim dyn. Laden einer DLL

[Bernhard Geyer]

@MyPointer ist immer <> nil

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var MyDLL:HWND;
    MyFunction:TMyFunction;
    Text:String;
begin
  MyDLL := LoadLibrary('MyDLL.dll');
  MyFunction:= TMyFunction(GetProcAddress(MyDLL, 'GetText'));
  if Assigned(MyFunction) then
   begin
     Text:=MyFunction;
     ShowMessage(Text);
   end;
  FreeLibrary(MyDLL);
end;