filtro:=consulta.sql.text:='select * from tabla where cod like '1.*'; consulta.open; While Not Consulta.Eof do begin showMessage(Consulta.fields[0].AsString); Consulta.Next; end;