Acceso a DLL

[aggg63]

Hola.
La funcion esta implementada y ya probe tambien la opcion de pasar la direccion como @FMensaje, aunque en el codigo expuesto en un mensaje no aparezca. Da el mismo error.

procedure FMensaje(texto: pAnsiChar); cdecl;
var
FicheroTexto: TextFile;
begin
	 AssignFile(FicheroTexto,'FicheroEGDB.txt');
	 Rewrite(FicheroTexto);
	  Write(FicheroTexto,texto);
	 CloseFile(FicheroTexto);
end;