dmConnection.adcConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + TempKeyDir + ';Extended Properties=dBase III; mode=Read|Write|Share Deny None;Persist Security Info=True';
dmConnection.adcConnection.Open;
ADataset.Connection := dmConnection.adcConnection;
ADataset.CommandText := 'select * from [' + ExtractFileName(NewFileName) + ']';
ADataset.Open;
ADataset.Connection := nil;
for i :=  0  to KeyFiles.Count -  1  do
   DeleteFile(PAnsiChar(TempKeyDir + '\' + KeyFiles[i]));
dmConnection.adcConnection.Close;
RemoveDir(ExtractFilePath(NewFileName)); //!!!