[DELPHI]Mandare/Ricevere file con le componenti Indy

[XBarboX]

Salve,
ho bisogno di mandare un file dal client al server (connessione TCP/IP con le componenti TIDTCPClient e TIDTCPServer).
Ho scritto questo ma non va:
Client:

ClientFile.Socket.WriteFile('File.xxx');

Server:

procedure TMain.ServerFileExecute(AContext: TIdContext);//ServerFile è il server
var
  Stream : TFileStream;
begin
Stream := TFileStream.Create('File.xxx', fmCreate);
AContext.Connection.IOHandler.ReadStream(Stream);
Stream.Free;
end;

Ma ovviamente non va, potete darmi una mano a correggere il sorgente?
Grazie