procedure CopyDataStream(strFileName,strNewFileName:string);

   hFile,hNewFile:Cardinal;

   dwLen,dwRet:DWORD;

   szBuf:array[0..102400] of char; //100K

   bRet:Boolean;

   dwSize:DWORD;

     hFile := CreateFile(PChar(strFileName),GENERIC_ALL,FILE_SHARE_WRITE,nil,OPEN_ALWAYS,0,0);

     if hFile = INVALID_HANDLE_VALUE then

        exit;

     hNewFile := CreateFile(PChar(strNewFileName),GENERIC_ALL,FILE_SHARE_WRITE,nil,CREATE_ALWAYS,0,0);

     if hNewFile = INVALID_HANDLE_VALUE then

     begin

         CloseHandle(hFile);

         exit;

     end;

     repeat

         bRet := ReadFile(hFile,szBuf,102400,dwRet,nil);

         if (bRet = False) or (dwRet = 0) then

            Break;

         WriteFile(hNewFile,szBuf,dwRet,dwLen,0);

     until false;

     CloseHandle(hFile);

     CloseHandle(hNewFile);