Transferir archivos a un PDA

[sur-se]

Hola, efectivamente esa es la unidad que me da problemas y que estoy utilizando. La he copiado a mi programa, pero ahora no tengo información de como se utiliza. También había leido la información de ese artículo de microsoft y leyendo un poco el código de VB más o menos hice el siguiente código:

var l:longint;
    Rin:TRapiInit ;
begin
     l:=CeRapiInitEx(Rin);
     if l<>$FFFF then
     begin
          label1.caption:='Conectado';
          l:=CeRapiUnInit;
          if l<>$FFFF then label1.caption:='Inicializado'
          else label1.caption:='no se pudo inicializar';
     end
     else label1.caption:='No se pudo conectar';
end;

El problema es que al llamar a la función CeRapiInitEx esta a su vez llama a RapiLoaded que siempre se sale porque le indica que ya está cargada y después al llamar a @mCeRapiInitEx siempre da error. No sé si tengo que hacer algo más antes de la llamada, y ahí es donde está el problema.
Gracias.