Hellen,

I put your piece of code directly to my application, but result is the same:
vL returns all records and after closing the preview vLista remains in
dssSearch mode. Here is my procedure:

with T_qrKredyty1.Create(Self)
do try
vLista.CheckBrowseMode;
with vL
do begin
if Active then Close;
SQL.Clear;
InternalDataset.AssignSQLWithSearch(vLista) ;
Prepare;
Open;
end;
Preview;
Application.ProcessMessages;
finally Free;
end;

Any help?
Marcin