OldFile1:='c:\Оля\tester32\TEST.cfg';
 NewFile1:='c:\Оля\tester32\Специальности\'+spec.Text+'\'+semestr.Text+'\'+DBGrid1.SelectedField.Text+'\TEST.cfg';
 CopyFile(PChar(NewFile1), PChar(OldFile1), False);
 ShowMessage(SysErrorMessage(GetLastError));
 sorse :='c:\Оля\tester32\Специальности\'+spec.Text+'\'+semestr.Text+'\'+DBGrid1.SelectedField.Text+'\SUBJECTS\*.sbj';