[[poliburro]]

 
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;