Indy TidTCPServer+TidTCPClient

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
z: String;
ScreenBM: TBitMap; // под скриншот
ms: TMemoryStream;
begin
  with AThread.Connection do
 begin
   //Читаем что прислало нам клиентское приложение
   z := ReadLn;
   //Если это скриншот экрана, то отправляем
   if SameText(Copy(z, 1, 11), 'get_screen ') then
    begin
  ScreenBM:= TBitMap.Create; //ScreenPNG:=TPNGObject.Create;
  ScreenBM.Width:=105;  //Размер битмапа
  ScreenBM.Height:=105; //Размер битмапа
  //Создаем скриншот области экрана
  BitBlt( ScreenBM.Canvas.Handle, 0,0,105,105, GetDC(0), 200, 200, SRCCOPY );
  
  ms:= TMemoryStream.Create;
  ms.Position:=0;
  ScreenBM.SaveToStream(ms);
 
  ScreenBM.Free; //Чистим БитМап от скриншот
   ms.Position:=0;
  //ПЕРЕДАЕМ файл клиентскому приложению
    OpenWriteBuffer;
    WriteStream(ms,true,TRUE,ms.Size);
    CloseWriteBuffer;
 
    //Уничтожаем поток
    //FreeAndNil(ms);
    ms.Free;
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 s:TMemoryStream;
 Bitmap: TBitmap;
begin
 connect_to_server;                   //Подключаемся к серверу
 IdTCPClient1.WriteLn('get_screen '); //Посылаем серверу команду "get_screen "
 Disconnect_to_server;
 
 with IdTCPClient1 do
 begin
   //Создаем поток
   s := TMemoryStream.Create;
 
   //Пока есть соединение читаем данные
  while connected do
      begin
        s.Position:=0;
        ReadStream(s,-1,false);
      end;
   Bitmap := TBitmap.Create;
   s.Position:=0;
   Bitmap.LoadFromStream(s);
   //Уничтожаем поток
   s.Free;
   Image1.Picture:=nil;
 
   //Выводим полученный скриншот на экран
   try
    Image1.Picture.Bitmap.Assign(Bitmap);
   finally
    Bitmap.Free;
   end;
 end; //end - with
end;