Parece que se donde está el problema
Código Delphi
[-]
DbGrid1.DataSource:=dm.T.Vacio;
s:='SELECT CODIGO,DESCRIPCION, UNI, PVP, DTO,TOTAL,POS FROM LINTIK WHERE '+filtro;
dm.t.DataSource1.DataSet.Close;
dm.t.IBQuery1.Active:=FALSE;
dm.t.IBQuery1.Close;
dm.T.IBTquery.Active:=false;
dm.t.IBQuery1.SQL.Clear;
dm.t.IBQuery1.SQL.Add(S);
dm.T.IBTquery.Active:=true;
dm.t.IBQuery1.Open;
dm.t.IBQuery1.Active:=TRUE;
dbGrid1.Refresh;
Salud OS
PD Perdón por la nota anterior, todo por no leer