内存占用的有关问题

内存占用的问题
这个方法一调用内存就上升4兆多，请大家帮着分析分析！
function ShowFileProperties(OwnerWnd: HWND; FileName: String): Integer;
var
  SEI: ShellExecuteInfo;
begin
  with SEI do
  begin
  cbSize:= SizeOf(SEI);

  fMask:= SEE_MASK_INVOKEIDLIST or SEE_MASK_FLAG_NO_UI or SEE_MASK_NO_CONSOLE;
  Wnd:= OwnerWnd;
  lpVerb:= 'Properties';
  lpFile:= PChar(FileName);
  lpParameters:= nil;
  lpDirectory:= nil;
  lpIDList:= nil;
  nShow:= SW_SHOW;
  hInstApp:= 0;
  end;
  ShellExecuteEx(@SEI);
  Result:= SEI.hInstApp;
end;

[解决办法]
ShellExecuteInfo