procedure TfrmServer.ServerExecute(AThread: TIdPeerThread);
var
  Path: String;
  fStream: TFileStream;
  tBM: tBitmap;
begin
  Try
    If Copy(UpperCase(AThread.Connection.ReadLn), 1, 3) = 'SRN' then
      begin
        Path := ExtractFileDir(ParamStr(0)) + '\images\ScreenShot.BMP';
        tBM := TBitmap.Create;
        ScreenShot(0, 0, Screen.Width, Screen.Height, tBM);
        If FileExists(Path) then DeleteFile(Path);
        tBM.SaveToFile(Path);
        tBm.FreeImage;
        FreeAndNil(tBM);
        fStream := TFileStream.Create(Path, fmOpenRead + fmShareDenyNone);
        AThread.Connection.OpenWriteBuffer;
        AThread.Connection.WriteStream(fStream);
        AThread.Connection.CloseWriteBuffer;
        FreeAndNil(fStream);
        AThread.Connection.Disconnect;
      end;
  Except
    on E : Exception do
      ShowMessage(E.Message);
  end;
end;

procedure TfrmClient.btnServerScreenShotClick(Sender: TObject);
var
  ftmpStream: TFileStream;
  Path: String;
begin
  Try
    With Client do
      begin
        WriteLn('SRN');
        Path := ExtractFileDir(ParamStr(0)) + '\ServerScreen.bmp';
        If FileExists(Path) then DeleteFile(Path);
        ftmpStream := TFileStream.Create(Path, fmCreate);
        While connected do
          ReadStream(fTmpStream, -1, True);
        FreeAndNil(fTmpStream);
        Disconnect;
        imgMain.Picture.LoadFromFile(Path);
      end;
  Except
  end;
end;