public class DDEToJava {

    public static void main(String[] args) {
        System.out.println(getNCE());
    }

    native public static Integer getNCE();

    static {
        System.loadLibrary("DDEToJava");
    }

}

java JavaToDPR -o DDEToJava.dpr DDEToJava

// Il s'agit d'une dll
library DDEToJava;                              

// importe jni.pas
uses JNI;                                          

// fonction qui retourne un entier JInt
function Java_DDEToJava_getNCE (PEnv: PJNIEnv; Obj: JObject ): JInt; stdcall;
// Le corps de la fonction est vide   
begin                                            
end;

exports
  // déclare la fonction
  Java_DDEToJava_getNCE;                 

end.

library DDEToJava;                             

// on rajoute la bibliothèque utilisée
uses JNI, DdeMan;                                             

function Java_DDEToJava_getNCE (PEnv: PJNIEnv; Obj: JObject ): JInt; stdcall;
begin
  // on initialise la variable de retour
  result := 0;
  // instanciation de la conversation DDE
  with TDdeClientConv.Create(Nil) do
  try
    // connexion manuelle
    ConnectMode := ddeManual;
    // on crée le lien avec les variables du canal DDE
    SetLink('AXILOG','AXISANTE');
    // on teste ce lien
    if OpenLink then 
      // si tout s'est bien passé, on renvoie la valeur contenue dans la variable qui nous intéresse
      result := StrToInt(RequestData('NCEPatient'));
    finally
    // On libère les ressources utilisées
    Free;                                                         
  end;
end;

exports
    Java_DDEToJava_getNCE;                

end. 

library DdeToJava;

uses JNI,DdeMan;

function Java_DdeToJava_getNCE   (PEnv: PJNIEnv; Obj: JObject; Arg1 : JString; Arg2 : JString; Arg3 : JString): JInt; stdcall;
// Arg1 = service DDE   Arg2 = rubrique DDE  Arg3 = data
  var
    // Utilisation d'une variable TJNIEnv
    JVM: TJNIEnv;                                      	
begin
  // instanciation de l'environnement JNI 
  JVM := TJNIEnv.Create(PEnv);                       	    
  Result := 0;                    
  with TDdeClientConv.Create(Nil) do                    
  try
    ConnectMode := ddeManual;
    // on utilise les arguments après conversion en chaine Delphi                           
    SetLink(JVM.JStringToString(Arg1),JVM.JStringToString(Arg2));   
    if OpenLink then                                          
      Result := StrToInt(RequestData(JVM.JStringToString(Arg3)));
  finally                                                          
    Free;
    JVM.Free;
  end;
end;

exports
  Java_DdeToJava_getNCE;

end.

native public static Integer getNCE(String s1, String s2, String s3);

System.load(System.getProperty("user.dir")+File.separator+"DDEToJava.dll");