Comment on envoie un fichier d'un poste à un autre?

Bonjour,
J'ai fait un programme de discution et j'aimerai envoyer un fichier (image, exe...) vers un autre poste. Comment faut-il faire?
J'utilise delphi 7 avec les clientsocket et serversocket.

Si ce n'est pas faisable avec les sockets, pouvez vous me dire quelle est la procédure a suivre.
Merci

@+
MAX

Si sa peut t'aider voila un petit exemple :

Server :

Socket.SendStream(TFileStream.Create(Filename, fmCreate or fmOpenread));

Client :

var
iLen: Integer;
Buffer: Pointer;
FStream: TFileStream;
begin
if not Assigned(FStream)then
begin
FStream := TFileStream.Create(Fichier.Nom, fmCreate);
FStream.Position:=0;
end;
iLen := Socket.ReceiveLength;
GetMem(Buffer, iLen);
try
Socket.ReceiveBuf(Buffer^, iLen);
FStream.Write(Buffer^, iLen);
finally
FreeMem(Buffer);
end;
end;

joe .......