Error al accesar una funcion en una DLL

[[FGarcia]]

Bueno..es mi primera vez con las DLL.
He creado una DLL con varios procedimientos y funciones hasta el momento me han funcionado bien, sin embargo he declarado algo muy simple y me aparece un error que no tengo idea porque sucede, me explico:

Código Delphi [-]
//esto esta declarado en la DLL
 
function AjustesActuales : string; stdCall;
begin
  Result := 'Com1,9600,8,none,1';                              
end;
 
exports
    AjustesActuales;
 
begin
end.

y lo llamo asi:

Código Delphi [-]
//La declaro en la aplicacion normal

function AjustesActuales: string; external 'ComScale.dll';
 
implementation
{$R *.dfm}
 
//Aqui la llamo desde una aplicacion normal
procedure TForm1.btnMuestraClick(Sender: TObject);
begin
  StatusBar1.Panels[0].Text := AjustesActuales;
end;

y este es el mensaje de error:

---------------------------
Debugger Exception Notification
---------------------------
Project UsaComScale.exe raised exception class EAccessViolation with message 'Access violation at address 00374A08 in module 'ComScale.dll'. Write of address 0042AF9C'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Agradesco su ayuda.