[Resolvido] pesquisa ibquery

Preciso fazer uma consulta de nomes porem quando digito no edit e mando procurar clicando no botao a ibquery nao seleciona nenhum registro.

Uso delphi 7 e componentes da paleta Interbase, uso banco de dados Firebird.

Na propriedade sql da ibquery tenho o codigo:

Código:
Select *
From TABCADASTRO
Where NOMECOMPLETO = :PRMnomecompleto

PRMnomecompleto e o parametro que estou passando.

No botao coloquei este codigo:

Código:

procedure TFormPesquisaCadastro.BTNpesquisacadastroClick(Sender: TObject);
var pesquisa: string;

BEGIN
begin
if editPesquisaCadastro.Text = '' then
begin

 messagebeep(16);
 //messagedlg ('Digite no campo!'#13'O campo deve ser preenchido.',mtInformation,[mbOk],0);
 messagebox(FormPesquisaCadastro.Handle,'Digite no campo!'#13'O campo deve ser preenchido.','AgenTel - Pesquisar Cadastro',mb_Ok+MB_ICONQUESTION);
 editPesquisaCadastro.SetFocus;
 end
 else
 if RadioGroupPesquisaCadastro.ItemIndex = 0 then
 begin
 //pesquisa:= 'SELECT * FROM tabcadastro WHERE nomecompleto like "'+ editPesquisaCadastro.Text+'%"';
 DTM.IBQRYpesqNomeCompleto.Close;
 //DTM.IBQRYpesqNomeCompleto.SQL.Clear;
 //DTM.IBQRYpesqNomeCompleto.SQL.Add(pesquisa);
 //DTM.IBQRYpesqNomeCompleto.SQL.Add('ORDER BY nomecompleto');
 DTM.IBQRYpesqNomeCompleto.ParamByName('PRMnomecompleto').AsString:=EditPesquisaCadastro.Text;
 DTM.IBQRYpesqNomeCompleto.Open;
 editPesquisaCadastro.Clear;
 end;
 end;
END;

Possuo dois registros na tabela, porem quando digito uma letra seja de A ate Z ou 0 ate 9 o dbgrid fica fazio, digamos que tenho na tabela os nomes:

JUCA

ALFREDO

se digito J no edit e mando pesquisar ele deveria apresentar no dbgrid todos os nomes com a letra J, no caso JUCA, a mesma coisa com a letra A deveria apresentar todos os nomes com a letra A, no caso ALFREDO.

Tenho este codigo mas ele esta em paradox, nao sei se tem alguma diferenca pois estou usando Firebird.

Código:
'SELECT * FROM tabcadastro WHERE nomecompleto like "'+ editPesquisaCadastro.Text+'%"';

Como faco esse codigo que postei acima funcionar aqui:

Código:
DTM.IBQRYpesqNomeCompleto.ParamByName('PRMnomecompleto').AsString:=EditPesquisaCadastro.Text;

Aguardo ajuda obrigado.