Delphi - consultas con adoquery

amigos, quiero buscar x el codcli / nomcli / dircli concatenando con if cuando los edit no estan vacio, por ejemplo:
procedure bottonbuscar(..)
qado.close;
qado.sql.add('select * from cliente where estado = 'A' ');

if Ecodcli.text <> '' then
begin
Qado.sql.add('and codcli = :codcli');
Qadi.parameters.parambyname('codcli').value:=ecodcli.text;
end;

if Enomcli.text <> '' then
begin
Qado.sql.add('and nomcli= :nomcli);
Qadi.parameters.parambyname('nomcli').value:=nomcli.text;
end;

Qado.open;

AMIGOS que hago MALLLL
gracias porfa dar ejemplos

Es codcli un integer o no?
Te estas dando cuenta de que utilizas qado y qadi?

codcli es integer
y es Qado