procedure SetLangForParadoxAndDBase;

var

 p :TStringList;

 c :TConfigMode;

begin

 p := TStringList.Create;

 c := Session.ConfigMode; Session.ConfigMode := cmSession;

 try

  p.Text := 'LANGDRIVER=ancyrr'^M^J'LEVEL=7';

  Session.ModifyDriver('PARADOX',p);

  p.Text := 'LANGDRIVER=db866ru0'^M^J'LEVEL=7';

  Session.ModifyDriver('DBASE',p);

 finally

  Session.ConfigMode := c;

  p.Free;

 end;

end;