type
  TCallFunc = procedure(Num: Integer; Str: PChar); <-- DLL 함수에 넘겨줄 함수 원형
  TFunc = procedure(CallFunc: TCallFunc); <-- DLL 내부에 있는 함수의 원형

procedure CallFunction(Num: Integer; Str: PChar);
begin
  ...
  ...
end;

procedure Call(AFunction: String);
var
  DLLInstance: HINSTANCE;
  Func: TFunc;
begin
  DLLInstance := LoadLibrary('abc.dll');
  try
    @Func := GetProcAddress(DllInstance ,PChar(AFunction)) ;
    Func(@Callfunction);
  finally
    FreeLibrary(DLLInstance);
  end;
end;

성팔이 님이 쓰신 글 :
: 안녕하세요 ..
:
: C++ Builder로 작성된 프로그램이었는데 사정이 생겨서 Dephi로 변환을 해야하는데 아직 Dephi는 걸음마 단계라서 잘몰라서리 질문을 올립니다.
:
: abc.dll 이라는 DLL을 동적으로 링크 시켜서 결과 값이 자동으로 호출됩니다. C++의 예를 들면
:
: void     (__stdcall *EFunc)(void(*func_name)(int Num, char *Str));
:
: 로 선언이 되어 있으며
:
: Library Loading 시 아래와 같이 처리되어 있습니다.
:
: EFunc= (void (__stdcall *)(void(*Event_name)(int Num, char *Str)))
:                          GetProcAddress(IPDllInstance,"EFunc") ;
:
: EFunc(CallFuncMessage);
:
: 그리하여 CallFuncMessage 함수를 아래와 같이 만들었습니다.
:
: void CallFuncMessage(int Num, char *Str)
: {
:     switch(Num)
:     {
:         case 0x00 : .....
:     }
: }
:
: 그외에도 여러 함수가 있는데 만약 Add란 DLL 내에 포함된 함수를 부르게 되면 CallFuncMessage 함수로 결과가 자동으로 넘어오게 되어 있습니다.
:
: 문제는 함수 선언을 어떻게 해야 하는지 잘모르겠습니다.
:
: void     (__stdcall *EFunc)(void(*func_name)(int Num, char *Str));
: 를
: TEFunc  = procedure (Num : Integer ; Str : PChar)) ; Stdcall ;
: 와 같이 바꾸는 건 무언가 아닌것 같구요 .. 함수명도 파라미터로와야 하는데 그걸 어떻게 표기하는지요 ?
:
: 그러면
:
: var
:    EFunc: TEFunc ;  선언 후
:
:    DllInstance := LoadLibrary('abc.dll') ; 후
:    @EFunc:= GetProcAddress(DllInstance ,PChar(EFunc)) ;
:
: 이렇게 사용하고 CallFuncMessage 함수만 다시 정의하여 사용하면 될 것 같은데 TEFunc Type 선언을 어떻게 해야하는지 고수님들의 조언 부탁 드리겠습니다.