1:

   copyFile(PChar('c:\test.txt'),PChar('c:\test\test.txt'),True);					

1:
2:
3:
4:
5:
6:
7:
8:

var
  sSrc, sDest: string;
begin
  sSrc := 'D:\winscp.RND';
  sDest := 'D:\backup\winscp.RND';

  CopyFile( PChar(sSrc), PChar(sDest), true );
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

const
  cSep = ' - ';
var
  sSrc, sDest: string;
begin
  sSrc := 'D:\winscp.RND';
  sDest := 'D:\backup\winscp.RND' + cSep + DateToStr( Now );

  if not CopyFile( PChar(sSrc), PChar(sDest), true ) then begin
    MessageDlg( 'Could not copy file!'
              + #$A#$D
              + SysErrorMessage( GetLastError )
              , mtError, [mbOK], 0 );
  end;
end;