Нужна помощь по Indy10. передача файла.

program SendFile;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes,
  IdContext, IdIOHandler, IdTCPClient, IdTCPServer;

const
  CPORT = 9999;
  CHOST = 'localhost';
  CTestFile = 'c:\test.txt';
  CResultFile = 'c:\test.out';

type
  TDummyClass = class
  protected
    class procedure Server;
    class procedure Client;
    class procedure Send( IOHandler : TIdIOHandler; const AFileName : String );
    class procedure Execute(AContext: TIdContext);
  end;

{ TDummyClass }

class procedure TDummyClass.Server;
begin
  with TIdTCPServer.Create do
  try
    DefaultPort := CPORT;
    OnExecute := Execute;
    Active := true;
    Client;
  finally
    Free
  end;
end;

class procedure TDummyClass.Client;
begin
  with TIdTCPClient.Create do
  try
    Port := CPORT;
    Host := CHOST;
    Connect;
    Send( IOHandler, CTestFile );
    Disconnect;
  finally
    Free
  end;
end;

class procedure TDummyClass.Execute(AContext: TIdContext);
var
  Stream : TMemoryStream;
begin
  Stream := TMemoryStream.Create;
  try
    with AContext.Connection, IOHandler do
    try
      ReadStream( Stream, ReadLongInt( true ), false );
      WriteLn( 'OK' );
      Stream.SaveToFile( CResultFile );
    finally
      Disconnect;
    end;
  finally
    FreeAndNil( Stream );
  end;
end;

class procedure TDummyClass.Send(IOHandler: TIdIOHandler;
  const AFileName: String);
var
  FileStream : TFileStream;
begin
  FileStream := TFileStream.Create( AFileName, fmOpenRead, fmShareDenyNone );
  with IOHandler do
  try
    Write( FileStream, -1, true );
    ReadLn;
  finally
    FreeAndNil( FileStream );
  end;
end;

begin
  TDummyClass.Server;
end.