[Bargest]

Pos(Edit1.Text,F[i]) > 0

Не круто, ведь одна фамилия может входить в другую. Как "Щедрин М.Е." и "Салтыков-Щедрин М.Е.". Pos > 0 найдет Щедрина в Салтыкове-Щедрине. Лучше тогда Pos = 1, благодаря инициалам вхождение с начала текста должно быть только одно.