Como realizar um select usando parametros digitados em um EDIT ?

 Q_Busca.Close;
             Q_Busca.SQL.text :='SELECT CODCLICL CODIGO, NOMCLICL CLIENTE,CNPJCLICL CNPJ,FONE1CLICL FONE1,FONE2CLICL FONE2,NOMVENDEDOR VENDEDOR,NOMOPEOP OPERADOR'+
             ' FROM GTELCLI LEFT '+
             ' OUTER JOIN GTELCADVEND ON (GTELCADVEND.ID = GTELCLI.CODVEND) LEFT OUTER JOIN GTELOPE ON (GTELOPE.CODOPEOP = GTELCLI.OPEATUCL)'+
             ' WHERE CODCLICL=:WPARAM order by NOMCLICL ';
             Q_Busca.Parameters.parambyname('WPARAM').Value := PARAM.text;
             Q_Busca.Open;