Hola,
Ignoro si es por eso, pero, me parece que no puedes usar "strings" como parámetros ni como resultados, sino es añadiendo una determinada "unidad" de Delphi, de cuyo nombre no puedo acordarme ahora. El caso es que podrías probar algo como esto:
Código Delphi
[-]
function AjustesActuales : PChar; stdCall;
begin
Result := 'Com1,9600,8,none,1';
end;
Y:
Código Delphi
[-]
function AjustesActuales: PChar; stdcall; external 'ComScale.dll';