Как передать txt-файл по сети

unit ClientU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdIPWatch, StdCtrls,
  IdTCPConnection, IdTCPClient;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    IdIPWatch1: TIdIPWatch;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    SaveDialog1: TSaveDialog;
    Button2: TButton;
    IdTCPClient1: TIdTCPClient;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure IdTCPClient1Connected(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
label2.Caption:=idipwatch1.LocalIP;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if savedialog1.Execute then
edit2.Text:=savedialog1.FileName;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
if edit1.Text='' then
begin
showmessage('Введите IP адрес другого компьютера!');
exit;
end;
if edit2.Text='' then
begin
showmessage('Введите имя файла!');
exit;
end;
idtcpclient1.Host:=edit1.Text;
idtcpclient1.Port:=8090;
idtcpclient1.Connect;
end;
 
procedure TForm1.IdTCPClient1Connected(Sender: TObject);
var
s:tstringstream;
begin
s:=tstringstream.Create('');
idtcpclient1.ReadStream(s,-1,true);
s.Seek(0, soFromBeginning);
memo1.Lines.LoadFromStream(s);
memo1.Lines.SaveToFile(edit2.Text);
s.Free;
idtcpclient1.Disconnect;
end;
 
end.

unit ServerU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdIPWatch, StdCtrls, IdTCPServer;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    IdIPWatch1: TIdIPWatch;
    Label3: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Memo1: TMemo;
    Button2: TButton;
    IdTCPServer1: TIdTCPServer;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure IdTCPServer1Execute(AThread: TIdPeerThread);
  private
    { Private declarations }
  public
    { Public declarations }
    go:boolean;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
label2.Caption:=idipwatch1.LocalIP;
go:=false;
idtcpserver1.DefaultPort:=8090;
idtcpserver1.Active:=true;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
edit1.Text:=opendialog1.FileName;
memo1.Lines.LoadFromFile(opendialog1.FileName);
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
if memo1.Lines.Text='' then
begin
showmessage('Файл не открыт или пустой!');
exit;
end;
go:=true;
end;
 
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
s:tstringstream;
begin
if go then
begin
s:=tstringstream.Create(memo1.Lines.Text);
with athread.Connection do
begin
openwritebuffer;
writestream(s);
closewritebuffer;
disconnect;
end;
s.Free;
end;
end;
 
end.