[:S.p.a.m.]

Ну перебираеш нужные строки и столбцы и первую букву поля сравниваеш с твоей введенной в Edit

Два For, один i другой j
в них уже

Код:

If SG.Cells[i,j][1] = Edit1.text[1] then 

Ну вобщем то и все, это же обычная строка, например:

Код:

Var S:String

Теперь получаем первую букву:

Код:

s[1]

Вторую соответственно: s[2]
Думаю понятно объяснил.