[cloayza]

Código Delphi [-]

library Tu_Libreria;                           
                                              
uses                                          
  SysUtils,                                   
  Classes;                                            
{$R *.res}                                    
                                              
function Get_Digito(nEmpresa:Integer):Integer;
begin
       //Tu  codigo...
end;

function CreaCadena(nEmpresa: integer):String;stdcall;
var cCadena: string;
begin
       cCadena := cCadena + '1';
       cCadena := cCadena + intTostr(Get_Digito(nEmpresa));
end;                                              
                                              
Exports                                       
         CreaCadena;           
begin                                         

end.

Saludos cordiales