文件没办法传输...是什么原因

用 idtcpclient1 向 IdTCPServer1 传送文件 文件传过来是O字节。只有一个图标在那，是为什么。刚刚用 INDY 什么都不了解 请不指教。procedure TForm1.Button2Click(Sender: TObject);
var afile  : tfilestream;
begin
if opendialog1.Execute then
   afile := tfilestream.Create(opendialog1.FileName , fmcreate);
idtcpclient1.Connect(-1);
idtcpclient1.OpenWriteBuffer(-1);
idtcpclient1.WriteStream(afile,true , false , afile.Size);
idtcpclient1.CloseWriteBuffer;
idtcpclient1.Disconnect;
AFILE.Free;
end;
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var astream : tfilestream;
begin
 if savedialog1.Execute then
  astream := tfilestream.Create(savedialog1.FileName, fmCreate );
 athread.Connection.ReadStream(astream,-1,true);
 astream.Free;
end;end.