Zeiger auf Proceduren

[hukopush]

Hallo,
ich habe folgendes Problem: Ich muss eine DLL welche in C++ geschrieben wurde in Delphi einbinden, welches im Grunde genommen problemlos funktioniert. Wenn ich aber den Schalter für Typüberprüfung bei Zeigern einschalte {$TYPEDADDRESS ON} meldet mir der Compiler einen Fehler: Folgender Quelltext liegt dabei zugrunde:

Delphi-Quellcode:

   (* Callbacks *)


type
  Callbacktyp1 = Procedure();
  Callbacktyp2 = Procedure(ID : pUInt64);
  Callbacktyp3 = Procedure(ID : pUInt64; New : WordBool);
  Callbacktyp4 = Procedure(ID : pUInt64; Error : Integer);
  Callbacktyp5 = Procedure(LogClass : Word; LogMessage : pAnsiChar);

type
  pCallbacktyp1 = ^Callbacktyp1;
  pCallbacktyp2 = ^Callbacktyp2;
  pCallbacktyp3 = ^Callbacktyp3;
  pCallbacktyp4 = ^Callbacktyp4;
  pCallbacktyp5 = ^Callbacktyp5;




Procedure RegisterConnectCallback(Proc : pCallbacktyp1); stdcall; external 'DataServiceClientDLL.dll' name '@RegisterConnectCallback$qqspqqsv$v';
Procedure RegisterDisconnectCallback(Proc : pCallbacktyp1); stdcall; external 'DataServiceClientDLL.dll' name '@RegisterDisconnectCallback$qqspqqsv$v';
Procedure RegisterNewServerCallback(Proc : pCallbacktyp3); stdcall; external 'DataServiceClientDLL.dll' name '@RegisterNewServerCallback$qqspqqsrxujxus$v';
Procedure RegisterDelServerCallback(Proc : pCallbacktyp2); stdcall; external 'DataServiceClientDLL.dll' name '@RegisterDelServerCallback$qqspqqsrxuj$v';
Procedure RegisterNewDeviceCallback(Proc : pCallbacktyp3); stdcall; external 'DataServiceClientDLL.dll' name '@RegisterNewDeviceCallback$qqspqqsrxujxus$v';
Procedure RegisterDelDeviceCallback(Proc : pCallbacktyp2); stdcall; external 'DataServiceClientDLL.dll' name '@RegisterDelDeviceCallback$qqspqqsrxuj$v';
Procedure RegisterNewChannelCallback(Proc : pCallbacktyp3); stdcall; external 'DataServiceClientDLL.dll' name '@RegisterNewChannelCallback$qqspqqsrxujxus$v';
Procedure RegisterDelChannelCallback(Proc : pCallbacktyp2); stdcall; external 'DataServiceClientDLL.dll' name '@RegisterDelChannelCallback$qqspqqsrxuj$v';
Procedure RegisterNewDatabaseCallback(Proc : pCallbacktyp3); stdcall; external 'DataServiceClientDLL.dll' name '@RegisterNewDatabaseCallback$qqspqqsrxujxus$v';
Procedure RegisterDelDatabaseCallback(Proc : pCallbacktyp2); stdcall; external 'DataServiceClientDLL.dll' name '@RegisterDelDatabaseCallback$qqspqqsrxuj$v';
Procedure RegisterNewDataCallback(Proc : pCallbacktyp2); stdcall; external 'DataServiceClientDLL.dll' name '@RegisterNewDataCallback$qqspqqsrxuj$v';
Procedure RegisterDataEndCallback(Proc : pCallbacktyp2); stdcall; external 'DataServiceClientDLL.dll' name '@RegisterDataEndCallback$qqspqqsrxuj$v';
Procedure RegisterWriteBlockCompleteCallback(Proc : pCallbacktyp4); stdcall; external 'DataServiceClientDLL.dll' name '@RegisterWriteBlockCompleteCallback$qqspqqsrxujxl$v';
Procedure RegisterLogCallback(Proc : pCallbacktyp5); stdcall; external 'DataServiceClientDLL.dll' name '@RegisterLogCallback$qqspqqsxuspxc$v';






implementation


.
.
.

procedure OnConnect;
var
 i,j : integer;
begin
  (* Unfug zum test *)
    i := 6;
    j:= 1+i;
end;

.
.
.

procedure TForm1.FormCreate(Sender: TObject);

begin
  Initialisation('testapplication');

  RegisterConnectCallback(@OnConnect);  
  RegisterNewDatabaseCallback(@OnNewDatabase);
  RegisterNewDataCallback(@tform1.OnNewData);

  StartLocalDataService(true);
  connect;
end;

Folgende Fehlermeldung tritt bei der procedure FormCreate auf:
[Fehler] zugriff.pas(643): Inkompatible Typen: 'Procedure' und 'Callbacktyp1'

Ist ja eigentlich auch klar aber ich weis nicht was ich machen kann damit diese Typen Kompatibel zueinander sind.
Bitte jetzt nicht den Vorschlag vor dem Create wieder die Typüberprüfung ausschalten. (ist völlig klar das das Funktioniert)

Vielen Dank für eure Hilfe
LG heiko