unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    IdTCPClient1: TIdTCPClient;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  LStreamOutgoing, LStreamTwo: TMemoryStream;
  BmpImageOne, BmpImageTwo : TBitmap;
begin
  IdTCPClient1.Connect;
  if IdTCPClient1.Connected then
  Edit1.Text := 'Есть контакт'
  else
  begin
    Edit1.Text := 'Нет контакта';
    Exit
  end;

  //IdTCPClient1.Socket.WriteLn(Edit1.Text);
  //Edit1.Text := '';
  //Edit2.Text := IdTCPClient1.Socket.ReadLn;

  LStreamOutgoing := TMemoryStream.Create;
  //LStreamOutgoing.I

  LStreamTwo := TMemoryStream.Create;
  BmpImageOne := TBitmap.Create;
  BmpImageTwo := TBitmap.Create;
  BmpImageOne.LoadFromFile('C:\Users\Ildar\Desktop\79HqdU.bmp');
  BmpImageOne.SaveToStream(LStreamOutgoing);
  IdTCPClient1.Socket.Write(Int64(LStreamOutgoing.Size));
  //IdTCPClient1.IOHandler.Write(LStreamOutgoing, 0, True);
  IdTCPClient1.Socket.Write(LStreamOutgoing);

  BmpImageOne.Free;
  BmpImageTwo.Free;
  LStreamOutgoing.Free;
  LStreamTwo.Free;
  IdTCPClient1.Disconnect;
end;

end.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdContext, Vcl.StdCtrls,
  IdBaseComponent, IdComponent, IdCustomTCPServer, IdTCPServer;

type
  TForm1 = class(TForm)
    IdTCPServer1: TIdTCPServer;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure IdTCPServer1Execute(AContext: TIdContext);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  IncomingStream: TMemoryStream;
  BmpFile: TBitmap;
  LSize: Int64;
begin
  //Edit1.Text := AContext.Connection.Socket.ReadLn;
  //AContext.Connection.Socket.WriteLn(Edit2.Text);

  IncomingStream := TMemoryStream.Create;

  BmpFile := TBitmap.Create;
  LSize := AContext.Connection.Socket.ReadInt64;
  AContext.Connection.Socket.ReadStream(IncomingStream, LSize);
  BmpFile.LoadFromStream(IncomingStream);
  BmpFile.SaveToFile('C:\Users\Ildar\Desktop\CAD\123.bmp');

  IncomingStream.Free;
  BmpFile.Free;
end;

end.