[Decoding]

А ты уверен, что надо писать так
DataModule1.ADOTable1.Filter:='Фамилия>'''+PoiskEd it.Text+'''';
а не так
DataModule1.ADOTable1.Filter:='Фамилия='''+PoiskEd it.Text+'''';