님의 코드에 약간 수정을 가했습니다.
dll source
====================================
type
   paa=^aa; //add pointer type

   aa=record
    a:String;
    b:String;
end;

Function Arr(a,b:Integer):paa; stdcall; //호출방식변경
begin
   new(result);               // 새 포인터변수정의 !!
   result^.a := intTostr(a);      //
   result^.b := intTostr(b);      //
end;

exports
   Arr;

=======================================
delphi source
=======================================
test.exe

type
   paa=^aa; //add pointer type

   aa=record
    a:String;
    b:String;
end;

procedure TForm1.Button1Click(Sender: TObject);
var iDllHandll : integer;
    DllFunc : Function (a,b:Integer):paa; stdcall;  //수정
    ab : paa;  //수정
begin
   iDllHandll := LoadLibrary('Project1.dll');
   if iDllHandll >= 32 then begin
      DllFunc := GetProcAddress(iDllHandll, 'Arr');
      if @DllFunc <> Nil then begin
         ab := DllFunc(4,6);
         showmessage(ab^.b);  //수정

      end;
      FreeLibrary(iDllHandll);
   end;

end;

DLL에서 string형을 쓰는 것은 굉장히 주의해서 사용해야 합니다. 그렇지 않으면 Access violation에러를 자주 보게 되죠... DLL 프로젝트 처음 시작할 때 나오는 프로젝트 소스의 주석을 읽어보시면 왜 그러한지 이유를 아실 수 있을겁니다.
되도록이면 버퍼화된 PChar형이나 AnsiString형 ShortString형을 쓰는것이 좋습니다.

<!--CodeS-->
DLL Source
type
  TMyRec = record
    A: AnsiString; // AnsiString
    B: string[255]; // ShortString;
    C: array[0..100] of char; // Buffered PChar
  end;

function MyFunc(A, B: Integer): TMyRec;
begin
  Result.A := IntToStr(A);
  Result.B := IntToStr(B);
end;
<!--CodeE-->

다른 방법도 있겠으나,
일반 구조체를 사용하면 FreeLibrary해제시 Access violation에러가 발생합니다.
구조체를 메모리에서 참조하고 dll해제시 참조를 못해서 그런가봅니다.
그래서 저는 일반구조체를 오브젝트class로 생성해 메모리를 해제하는 방식으로 합니다.
메모리 릭 발생도 해제로 잘 막으며 해야 합니다.
아래 예제는 aa레코드를 그대로 하고 TTempClass에 포장해서 넘겼는데, aa를 TTempClass안에 넣는 것도 무방합니다
<!--CodeS-->
DLL

type
aa=record
    a:String;
    b:String;
end;
TTempClass = class
   cc : aa;
   constructor Create;
   destructor Destroy;
end;
...

constructor TTempClass.Create;
var
    i : integer;
begin
   inherited Create;
end;
destructor TTempClass.Destroy;
begin
    inherited;
end;

Function Arr(a,b:Integer):TTempClass; export;
var ab : aa;
begin
   ab.a := intTostr(a);
   ab.b := intTostr(b);

   Result := TTempClass.Create;
   Result.cc := ab;
end;
exports
   Arr;

<!--CodeE-->

<!--CodeS-->
EXE

type
aa=record
    a:String;
    b:String;
end;

TTempClass = class
   cc : aa;
   constructor Create;
   destructor Destroy;
end;
...

constructor TTempClass.Create;
var
    i : integer;
begin
   inherited Create;
end;
destructor TTempClass.Destroy;
begin
    inherited;
end;

procedure TForm1.Button1Click(Sender: TObject);
var iDllHandll : integer;
    DllFunc : Function (a,b:Integer):TTempClass;
    pTTempClass : TTempClass;
begin
   iDllHandll := LoadLibrary('Project1.dll');
   if iDllHandll >= 32 then begin
      @DllFunc := GetProcAddress(iDllHandll, 'Arr');
      if @DllFunc <> Nil then begin
         pTTempClass := DllFunc(4,6);
         showmessage(pTTempClass.cc.b);
         pTTempClass.Free;
      end;
      FreeLibrary(iDllHandll);
   end;


<!--CodeE-->