(TreeView) De idTCPServer -> idTCPClient

[ANG4L]

Buenas, tengo una cuestion !
Tengo que enviar un TreeView del servidor al cliente, lo hice de la siguiente manera, pero el cliente no parece de terminar el proceso, a ver si me dicen donde puede estar el error

En el server

Código Delphi [-]
Ciudad:=TFileStream.Create('Ciudad.dat',fmCreate or fmShareCompat);
TreeView1.SaveToStream(Ciudad);
AThread.Connection.OpenWriteBuffer;
AThread.Connection.WriteStream(Ciudad);
AThread.Connection.CloseWriteBuffer;
Ciudad.Free;

En el cliente

Código Delphi [-]
Archivo:= TFileStream.Create('Ciudad.dat',fmCreate or fmOpenWrite);
idTCPClient1.ReadStream(Archivo, -1, true);
TreeView1.LoadFromStream(Archivo);
Archivo.Free;

Saludos !