[ecfisa]

Hola.

Seguramente sea por que en tu archivo existe un espacio antes del número de documento (o después del punto), se soluciona quitándolo antes de la comparación:

bool SearchByDoc(String aText, String Searched, String &Found)
{
  TStrings *Split = new TStringList;
  String s;

  Split->Text = aText;
  ExtractStrings(TSysCharSet() << '.', TSysCharSet() << '\0', aText.c_str(), Split);
  Split->Delete(0);
  for(int i = 0; i < Split->Count; i++) {
    s = Trim(Split->Strings[i]);
    if (s.SubString(0, s.Pos(" ")-1) == Trim(Searched)) {
      Found = Split->Strings[i];
      return true;
    }
  }
  delete Split;

  return false;
}

Saludos