[StartKill]

Holas,

My friend EITB, no he olvidado el e-mail que enviaste... te agradesco el gesto de ayuda...

Quedó una promesa pendiente con respecto a pegar el codigo que enviaras..., para los interesados alli lo tienen:

Email de EITB

Sigo los mismos pasas que tu 
New -> DLL
Creo una nueva unit para mis funciones 
pongo su prototipo
hago su implementacion
y pongo la clausula Exports en la parte de DLL con el nombre de la funcion
 
Te mando el codigo de la dll para que la veas 
 despues de eso tube que hacer otra funcion para trabajar con fechas y los integer en los parametros tambien me dieron problemas en interbase , parece que nada mas le gustan los pchar asi que te recomiento que lo manejes asi todos los parametros en pchar y ya dentro de tu dll los cambies al tipo que le corresponda de cualquier forma el pchar lo puedes convertir como si fuera una cadena , que al final siempre apunta a una espero que te sirva y suerte 
 
EITB

He aqui el archivo *.dpr

Código Delphi [-]
library fsStrMid;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's .... parameters. }

uses
  SysUtils,
  Classes,
  Unit1 in 'Unit1.pas';

{$R *.res}

Exports
    StrMid;

begin
end.

Y como archivo final nuestro *.pas

Código Delphi [-]
unit Unit1;
interface
function StrMid(pCadena : pChar; iIndex : Integer ; iNum : integer) : PChar; cdecl; export;

implementation

function StrMid(pCadena : pChar; iIndex : Integer ; iNum : integer) : PChar;
begin
     result := pChar(copy(pCadena,iIndex,Inum));
end;
end.

Your friend,

StartKill
Lima-Perú