Delphi dicas

Pesquisa parcial (like - sql)

DM.qrProduPesq.Close;

DM.qrProduPesq.SQL.Clear;

DM.qrProduPesq.SQL.Add('SELECT nome, codigo FROM PRODU WHERE UPPER(nome) LIKE ' + #39 + '%' + Edit1.Text + '%' + #39);

DM.qrProduPesq.Open;