ActiveDelphi

[thaita]

criei um procedimento com SQL para mostrar os
dados no DBGrid e também para consultar registros. Acontece que
os dados na DBGrid não aparecem corretamente de acordo com a
instrução SQL. Alguém pode me ajudar a corrigir o erro.

procedure TfrmNomeHQ.Pesquisar;
var
SQL : String;
FiltroPesquisa : string;
begin
SQL := 'Select e.Nome as Editora , n.Descricao as Nome' +
'from Editora e join NomeHQ n ' +
'on n.ID_Editora = e.Id order by e.Nome,n.Descricao';

FiltroPesquisa := TUtilitarios.LikeFind(edtPesquisar.Text, DBGrid1);
dmNomeHQ.cdsNomeHQ.Close;
dmNomeHQ.cdsNomeHQ.CommandText := 'Select * from NomeHQ where 1 = 1' + FiltroPesquisa;
dmNomeHQ.cdsNomeHQ.Open;
inherited;
end;