[NumLock]

DECLARE EXTERNAL FUNCTION MYY
    CSTRING(20)
    RETURNS CSTRING(20)
    ENTRY_POINT 'MyDLL' 
    MODULE_NAME 'Project2';

Код:

library Project2;

uses
  SysUtils,
  Classes;

function MyDLL(s: PChar): PChar; cdecl;
begin
  Result:=PChar(Format('"%s"', [s]));
end;

exports MyDLL;

begin
end.

Код:

select MYY(Nazvanie) from OptMagazin