procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
ADODataSet1.FieldDefs.Add('F1', ftInteger);
ADODataSet1.CreateDataSet;
ADODataSet1.Open;
for i := 0 to 10000 do
ADODataSet1.AppendRecord([i]);
ADODataSet1.Filter := 'F1>5000';
ADODataSet1.Filtered := true;
ADODataSet1.SaveToFile('c:\1.dat',pfADTG);