problema con busqueda

[josi]

hola a todos.

tengo un problemita con una busqueda, Este es el codigo del botos buscar:

Código Delphi [-]
var sql: string;
begin
clientesquery2.CLOSE;
clientesquery2.sql.clear;

IF LENGTH (EDIT1.TEXT) > 0 THEN
SQL:= 'SELECT * FROM clientes WHERE codigo =' + QUOTEDSTR (EDIT1.TEXT)
ELSE
SQL:= 'SELECT * FROM clientes';

clientesquery2.SQL.ADD (SQL);
clientesquery2.ACTIVE := TRUE;

IF
clientesQuery2.RECORDCOUNT <= 0 THEN
BEGIN
SHOWMESSAGE ('NO HAY CLIENTE CON ESTE CODIGO');
END
ELSE
EDIT1.TEXT:= clientesquery2.FieldValues ['codigo'];
end;



end.

pero me dice este error 'no conciden los datos en la expresion de criterios'.

gracias.......