Pesquisando dados atravez de um EDIT - Locate ou usando comando LIKE

Colocando no onChange do componente....


procedure Tcons_advogado1.Edit2Change(Sender: TObject);
begin
if Edit2.Text <> '' then
begin
Query.Locate(campo da tabela,edit2.Text,[lopartialkey,locaseinsensitive]);
end
end;

obs... Tem de coloca no uses o db
esta eh uma maneira


outro exemplo que passei a usar apos a dica de um professor eh

procedure Tcons_advogado1.Edit1Change(Sender: TObject);
begin
if componente.Text <> '' then
begin
With query do
begin
if componente.Text <> '' then
Close;
Sql.Clear;
Sql.Add('Select *');
Sql.Add('from tabela);
Sql.Add('where campo);
begin
Sql.Add('like''%' + componente.Text + '%'' ');
Sql.Add('order by campo a escolher);
Open;
end;
end;
end;
end;