DLL динамические библиотеки

library bible;
 
uses Sharemem, windows, sysutiles, classes;
 
 
function infoStr(s:pchar):pchar;export;stdCall;
begin
      result:=s; 
end;
     
     exports 
       infoStr;
 
begin
end.
 
 
{так выглядит вызывающая функция}
 
..
function infoStr(s:pchar):pchar; far; external 'bible';
 
..
var s:pchar;
begin
       s:='Привет';
       showMessage(strPas(infStr(s)));
end;
..

uses [B]Sharemem[/B], windows, sysutiles, classes;
 
 
function infoStr(s:Pchar):Pchar;[B]export;stdCall[/B]; // зачем ты указал соглашение о вызове ?
begin
result:=s;
end;
 
exports
infoStr;
 
begin
end.
 
 
{так выглядит вызывающая функция}
 
..
function infoStr(s:Pchar):Pchar; [B]far;[/B] external 'bible'; // где соглашение о вызове stdcall, коль скоро ты его указал в библиотечной ф-ции ?
 
..
var s:Pchar;
begin
s:='Привет';
showMessage(strPas(infStr(s)));
end;

function InfoStr(const aPCh : PChar) : PChar; stdcall;
begin
  Result := aPCh;
end;
 
exports InfoStr;
 
begin
end.

function InfoStr(const aPCh : PChar) : PChar; stdcall;
  external 'bible.dll' name 'InfoStr';
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
begin
  S := 'Это пример строки.';
  S := InfoStr(PChar(S));
  ShowMessage(S);
end;

..
function FFFF(s,s1:pchar):boolean;stdcall;
var adoq:TADOQuery; 
begin
      adoq:=TADOQuery.Create(nil);
      try
       connectiongString:=strPas(s);
       sql.add('insert into nameTableDbf');
       sql.add('nameField1,nameField2');
       sql.add(':nameField1,:nameField2');
       parametrs[0].value:=strPas(s1);
       parametrs[1].value:=now;
       try
        execSql;
        result:=true;
       except
        result:=false;
       end;
      finally
       freeAndNil(adoq);
      end;
end;
     exports FFFF;
 
 
begin
end.
 
вот вызывающая функция:
 
..
function FFFF(s,s1:pchar):boolean;stdcall;external 'bible.dll' name 'FFFF';
..
 
var vs,vs1:string;
begin
       vs:=Provider=MSDASQL.1 ...;
       vs1:='Некоторая строка';
       FFFF(pchar(vs),pchar(vs1));
end;

begin
       CoInitialize(nil);
        ..
       CoUnInitialize();
end;