[Alegun]

А не проще готовыми методами самого компонента?

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Locate('lastname', Edit1.Text, [loPartialKey]);
end;

это нестрогий поиск