подсказали более простое решение вот:
Код:
CopyFile('F:\APM-SEK\BD\KTS.dbf','C:\Programming\APM-SEK\1\KTS.dbf',true);
RenameFile('C:\Programming\APM-SEK\1\KTS.dbf','C:\Programming\APM-SEK\1\Bk_KTS' + (FormatDateTime('mm.yyyy',date)) +'.dbf');
ShowMessage('выполненно');
И все зароботало вссем спасибо...