各位大虾，帮我看看这个函数有什么错误啊？

Question

我写了个dll，里面有这样一个函数  TUserInfo=Record
    UserName:Pchar;
    Logined:Pchar;
    Sex:Pchar;
    Handle:Pchar;
  end;  AUserInfo=array of TUserInfo;function GetUserInfo(AUserName:Pchar;ALogined:Pchar;ASex:Pchar;AHandle:Pchar):AUserInfo;stdcall;
var
  UserName:TStrings;
  UserInfo:AUserInfo;
begin
  UserName:=TStringList.Create ;
  try
    SetLength(UserInfo,1);
  finally
    UserName.Free;
    UserName:=nil;  
  end;
  Result:=UserInfo;
end;当我底三遍时，这个函数会报，内存不能读的错误
如果我UserName变量去掉，获者把Result:=UserInfo改为Result:=nil
就没事了，到底是怎么回事啊

Answer 1

试试这个：
  username.FreeInstance;
  //username.Destroy;
  username:=nil;

Answer 2

我在程序里是这样调用的,用的是静态调用
var
  UserInfo:AUserInfo;procedure TfrmMain.Button1Click(Sender: TObject);
begin
  UserInfo:=GetUserInfo('','','','');
end;

Answer 3

忘了说了UserInfo已经在窗体Create的时候，就建立了大小