TYPE
      Str* = POINTER TO ARRAY [untagged] OF SHORTCHAR;
                            ShortString* = POINTER TO ARRAY OF SHORTCHAR;

   PROCEDURE StrToShortChars* (str: Str): POINTER TO ARRAY OF SHORTCHAR;
      VAR x: ShortString; i: INTEGER;
   BEGIN
      IF (str # NIL) THEN
         NEW(x, LEN(str$)+1);
         FOR i := 0 TO LEN(str$)-1 DO x[i]:=str[i] END;
         RETURN x
      ELSE
         RETURN NIL
      END
   END StrToShortChars;

library Project1;

uses    sharemem,
  SysUtils,
  windows,
  Classes;

{$R *.res}
 {$o-}
 procedure ir(var buffer:pchar);
 var s:string;
 begin
  buffer:='1234';
 end;

 exports ir;
begin
end.

MODULE Dll["c:\temp\Project1.dll"];
IMPORT SYSTEM,WinApi;

TYPE   
   PROCEDURE GetBuffer* ["ir"] (VAR lpszAgent:WinApi.PtrSTR);
END Dll.

MODULE m;
IMPORT Dll,WinApi,StdLog,ComTools;

PROCEDURE a*;
VAR s:WinApi.PtrSTR;i:INTEGER;
    c:SHORTCHAR;
BEGIN
 StdLog.Clear;
 s:=ComTools.NewEmptySString(6);
 Dll.GetBuffer(s);
 i:=WinApi.GetLastError();
 IF i#0 THEN
     StdLog.String('Ошибка № ');StdLog.Int(i);StdLog.Ln;
 ELSE
  StdLog.Int(LEN(s$));StdLog.Ln;
  FOR i:=0 TO LEN(s$)-1 DO
   c:=s[i];
   StdLog.Char(c);
  END;
 END;
 ComTools.FreeSString(s);
END a;

END m.

BOOL ReadFile(
  __in   HANDLE hFile,
  __out  LPVOID lpBuffer,
  __in   DWORD dwNumberOfBytesToRead,
  __out  LPDWORD lpdwNumberOfBytesRead
);

   PROCEDURE Read* ["ReadFile"](
     hFile:WinApi.PtrVoid;OUT lpBuffer:WinApi.PtrSTR;dwNumberOfBytesToRead:LONGINT;OUT lpdwNumberOfBytesRead:LONGINT
   ):BOOLEAN;

MODULE Dll["c:\temp\Project1.dll"];
IMPORT SYSTEM,WinApi;

TYPE   
   PROCEDURE GetBuffer* ["ir"] (buf:POINTER TO ARRAY OF SHORTCHAR);
END Dll.

MODULE m;
IMPORT SYSTEM,Dll,WinApi,StdLog;

PROCEDURE a*;
VAR i:INTEGER;
    buf:POINTER TO ARRAY OF SHORTCHAR;
BEGIN
 StdLog.Clear;
 NEW(buf,10);
 Dll.GetBuffer2(buf);
 i:=WinApi.GetLastError();
 IF i#0 THEN
     StdLog.String('Error ');StdLog.Int(i);StdLog.Ln;
 ELSE
  StdLog.String('String is = ');
  StdLog.String(buf$);
 END;
END a;

END m.