1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button1Click(Sender: TObject);
var
  jpg : TJpegImage;
  FStream: TMemoryStream;
begin
  FStream := TMemoryStream.Create;
  jpg.SaveToStream(FStream);
  jpg.Free;
  FStream.Position := 0;

  Client.Connect;
  try
    Client.IOHandler.Write(FStream,0,true);
  finally
    Memo1.Lines.Add('Screenshot verschickt!');
    Client.Disconnect;
  end;
  FreeAndNil(FStream);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm4.FileServerExecute(AContext: TIdContext);
var
  jpg : TJpegImage;
  FStream: TMemoryStream;
begin
  FStream := TMemoryStream.Create;
  jpg := TJpegImage.Create;
  try
    AContext.connection.IOHandler.ReadStream(FStream);
    FStream.Position := 0;
    jpg.LoadFromStream(FStream);
    jpg.SaveToFile('test.jpg');
  finally
    AContext.connection.Disconnect;
  end;
  FreeAndNil(FStream);
end;