[while]

Как по мне - ты с чего-то с кавычками намудрил.

Правильно так:

Код:

Add('WHERE fio LIKE ''%'+RzEdit1.Text+'%''');