може да пробваш и с TSclientSocket/TServerSocket компонентите
или TTCPClient/TTCPServer или пък с Indy componentite

примерен код с TTCPClient/TTCPServer
***CLIENT SIDE - send file
....
var Strm:TFileStream;
//send file
Strm:=TFileStreamCreate('c:\myfile.txt',fmOpenRead);
Strm.Position := 0;
tcpClient.Socket.SendStream(Strm);
Strm.Free;


*** SERVER SIDE - receive file
handler на OnRead event na TTCPServer
...
var Size:Integer;
Strm:TFileStream;
Buff:Pointer;
begin
//get data size to reveive
Size:=Socket.ReceiveLength;

//create stream to store data
Strm:=TFileStream.Create('c:\myfile',fmCreate);
//get some mem
GetMem(Buff,Size);
//actual data receiving
Socket.ReceiveBuf(Buff^,Size);
//write data to stream
Strm.Write(Buff^,Size);
Strm.Free;
FreeMem(Buff);

.... Не съм сигурен дали кода е напълно точен но идеяата е такава
подобно е и с TSclientSocket/TServerSocket компонентите

Редактирано от x-man на 13.11.03 11:56.