[Vredina]

var
adpt: SqlDataAdapter;
p: TDbProvider;
dsPosPr: DataSet;
begin
..........
try
dsPosPr.Clear;
adpt.Fill(dsPosPr);
Session['dsPosPr'] := dsPosPr;
ddlPos_Pr.DataBind;
try
..
except
...........
end;
finally
adpt.Free;
end;
end;