Optimering af funktion

Kan denne funktion gøres simplere?

function NetChangePassword(Server, UserName, Password : string): LongWord;
var
  Buf : USER_INFO_1003;
  TmpServer : PWideChar;
  TmpUserName : PWideChar;
  TmpLength : LongInt;
begin
  TmpLength := Length(Password)*SizeOf(WideChar)+1;
  GetMem(Buf.usri1003_password, TmpLength);
  try
    StringToWideChar(Password, Buf.usri1003_password, TmpLength);
    TmpLength := Length(UserName)*SizeOf(WideChar)+1;
    GetMem(TmpUserName, TmpLength);
    try
      StringToWideChar(UserName, TmpUserName, TmpLength);
      TmpLength := Length(Server)*SizeOf(WideChar)+1;
      GetMem(TmpServer, TmpLength);
      try
        StringToWideChar(Server, TmpServer, TmpLength);
        Result := NetUserSetInfo(TmpServer, TmpUserName, 1003, @Buf, nil);
      finally
        FreeMem(TmpServer);
      end;
    finally
      FreeMem(TmpUserName);
    end;
  finally
    FreeMem(Buf.usri1003_password);
  end;
end;


//Klaus