1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

//no need:
//  PFNCallBack = ^TFNCallBack;
  TFNCallBack = function (AData1, AData2: Cardinal;
                            AData: Pointer): Boolean; stdcall;

//Die Funktion in der DLL, welche die CallBack im Mainformular aufruft
function MyCallBack(AData1, AData2: Cardinal; ACallBackFunc: TFNCallBack;
  ACallBackData: Pointer): Boolean; stdcall;
begin
  if Assigned(ACallBackFunc) then begin  //schauen ob Funktion verfügbar ist....ja ist sie
    try
//      Result := ACallBackFunc^(AData1, AData2, ACallBackData);  //FEHLER
//this way:
      Result := ACallBackFunc(AData1, AData2, ACallBackData); 
    except
      Result := False;   //leider springt er immer hier rein
    end;
  end
  else
    Result := True;
end;

//Die Funktion im Programm
function MyCallBack(AData1, AData2: Cardinal; AData: Pointer): Boolean; stdcall;
begin
  Result := True;  //wird nie aufgerufen
end;					

1:

Result := @ACallBackFunc(AData1, AData2, ACallBackData);