[DELPHI]Mandare/Ricevere file con le componenti Indy

[XBarboX]

Dammi pure dello scemo, ma non riesco a capire cosa non vada:

//Bottone per attivare server
procedure TForm1.Button1Click(Sender: TObject);
begin
Server.DefaultPort:=1234;
Server.Active:=True;
end;

//Bottone per far connettere il client
procedure TForm1.Button2Click(Sender: TObject);
begin
Client.Port:=1234;
Client.Host:='127.0.0.1';
Client.Connect;
end;

//Bottone per chiudere il programma
procedure TForm1.Button3Click(Sender: TObject);
begin
Client.Disconnect;
halt;
end;

//Bottone per dire al client di mandare il file
procedure TForm1.Button4Click(Sender: TObject);
  var TFLFileOut: TFileStream;
begin
  //Edit1.text è il nome del file da mandare ES: 'Foto.jpg'
  TFLFileOut:= TFileStream.Create(Edit1.Text, fmOpenRead);
  Client.IOHandler.Write(TFLFileOut, 0, true);
end;

//Sulla connessione del client aggiungo una linea al memo per dire che si è connesso
procedure TForm1.ServerConnect(AContext: TIdContext);
begin
Memo1.Lines.Add('Connesso!');
end;

//Procedura per ricevere file
procedure TForm1.ServerExecute(AContext: TIdContext);
  var TFSFileIn: TFileStream;
begin
Memo1.Lines.Add('Arriva qualcosa...');
//Edit2 è il nome con cui salvare il file ES: 'CopiaFoto.jpg'
TFSFileIn:= TFileStream.Create(Edit2.Text, fmCreate);
AContext.Connection.IOHandler.ReadStream(TFSFileIn);
TFSFileIn.Free;
end;

end.