Вывести

pattern = Edit1 -> Text;
 
for ( int i = 0; i < StringGrid1 -> RowCount; i++ )
{
 for ( int j = 0; j < StringGrid1 -> ColCount; j++ )
 {
   if ( StringGrid1 -> Cells[j][i] == pattern )
   {
           //тут вводим что хотим сделать с результатами
ShowMessage(pattern);
   }
 }

// найти первое вхождение подстроки sPattern в таблице GridVal,
// если bCaseSensitive == true, тогда с учётом регистра, иначе без учёта регистра букв
// выдать результат в строку sMatchString и возвратить успех, либо неудачу поиска
const bool bFindMatchItem(AnsiString &sMatchString, TStringGrid *GridVal, const AnsiString &sPattern, const bool &bCaseSensitive) {
    bool bFounded = false;
    for (int iRow = 0; iRow < GridVal->RowCount; iRow++ ) {
        for  (int iCol = 0; iCol < GridVal->ColCount; iCol++ ) {
            const AnsiString sTriedString = bCaseSensitive == true ? GridVal->Cells[iCol][iRow] : GridVal->Cells[iCol][iRow].UpperCase();
            const AnsiString sPatternString = bCaseSensitive == true ? sPattern : sPattern.UpperCase();
            
            if (sTriedString.Pos(sPatternString)) {
                sMatchString = GridVal->Cells[iCol][iRow];
                bFounded = true;
                break;      
            }
        }
    }
    return bFounded;
}
 
AnsiString sResultString = "";
// если найдено первое вхождение подстроки Edit1->Text с учётом регистра в таблице StringGrid1
if (bFindMatchItem(sResultString,StringGrid1,Edit1->Text,true)) {
    ShowMessage(sResultString);
}