Como copiar archivos de una pc a otra por TCP/IP?

[[duilioisola]]

function CopyFileTo(const Source: string; const Destination: string): Boolean;

Parameters

const Source: string

Source file name.


const Destination: string

Destination file name.


Returns

Boolean - True if the file is copied, False on error.


Description

CopyFileTo is a function used to copy the file specified in Source to the file specified in Destination.
CopyFileTo will return False if the file in Destination already exists.
CopyFileTo encapsulates the platform-specific calls needed to perform the file copy operation. On the Windows platform, this is the Win32 API function CopyFile. On the Linux platform, CopyFileTo uses a TFileStream instance to create the destination file.

Has probado poniendo :

Código Delphi [-]
var Exito : Boolean;
begin
   Exito := CopyFileTo('\\192.168.1.1\DirCompartido\Archivo.txt','C:\Temp\Archivo.txt');
end;