개발 초보자 인데요...

dll을 호출한후에 전체 프로그램을 종료하면 다음과 같은 에러가 납니다.

Project Project1.exe raised exception class EStackOverflow with message 'Stack Overflow'.

근데 다음과 같이 폼이 있는 dll을 호출하였습니다..

procedure TForm1.sbtnAddClick(Sender: TObject);
type
TFunc = procedure(map : TMap);  stdcall;
var
  H : THandle;
  MyFunc : TFunc;
begin
   H := LoadLibrary('exampledll.dll');
   if H<32 then begin
      ShowMessage('No Dll');
      exit;
   end;
   @MyFunc := GetProcAddress(H, 'fmAddLayer');
   if not (@MyFunc = nil) then
     MyFunc(Map1);
   FreeLibrary(H);

  ViewController();
end;

책에 나와 있는 예제를 이용해서 만들었는데 에러가 나네요...

어떡게 해야 하나요?