[mRoman]

este es el còdigo final para cualquier otro amigo forero que este en las mismas circuntancias.

Código Delphi [-]
 if cArchivoAsociado<>'' then
                begin
//                    CopyFile(PChar(cArchivoAsociado),Pchar('c:\FORMATOS\'+ExtractFileName(oDlgFile.FileName)),false);
                    if CopyFile( PChar(cArchivoAsociado),Pchar('\\'+ipServer+'\FORMATOS'+'\'+dsVentas.FieldByName('LECHER').AsString+  '_'+dsVentas.FieldByName('DIA').AsString+dsVentas.FieldByName('MES').AsString+dsVentas.FieldByName('  ANIO').AsString+ExtractFileExt(oDlgFile.FileName) ),FALSE) then
                    begin
                            cArchivoAsociado:='\\'+ipServer+'\FORMATOS'+'\'+dsVentas.FieldByName('LECHER').AsString+'_'+dsVentas  .FieldByName('DIA').AsString+dsVentas.FieldByName('MES').AsString+dsVentas.FieldByName('ANIO').AsStr  ing+ExtractFileExt(oDlgFile.FileName);
                            ShowMessage('El archivo se copió correctamente')
                    end else begin
                           ShowMessage(Variant(GetLastError));
                    end;

                end;