function TContactsManager.GetContactByNumber(
  const aPhoneNumber: string): string;
var
  wUri: JNet_URI;
  wCursor: JCursor;
  wfilter,
  wJQueryParams: TJavaObjectArray<JString>;
begin
  Result := '';
  wUri := TJNet_URI.JavaClass.withAppendedPath
    (
     TJContactsContract_PhoneLookup.JavaClass.CONTENT_FILTER_URI,
     StringToJString(aPhoneNumber)
    );

  wfilter := TJavaObjectArray<JString>.Create(2);
  wfilter[0] := StringToJString('lookup');
  wfilter[1] := StringToJString('display_name');

  with SharedActivity.getContentResolver do
    wCursor := query(wUri, wfilter, nil, nil, nil);

  try
    if Assigned(wCursor) and
       (wCursor.getCount > 0) then
    begin
      wCursor.moveToNext;
      Result := JStringToString(wCursor.getString(
        wCursor.getColumnIndex(StringToJString('display_name'))));
    end;
  finally
    wCursor.Close;
    wCursor := nil;
  end;
end;