[Datasnap] Filedownload über TDSRestConnection führt zu out of memory

[Darlo]

Hallo zusammen,

ich habe einen Datasnap-Rest-Server. Dieser soll an meinen Client Daten übertragen (im konkreten Fall handelt es sich um eine PDF-Datei).
Der Servercode lautet

Delphi-Quellcode:

function TDsServer.Download(Id: String; out size: Int64): TJsonObject;
var
  stream: TMemoryStream;
  strPfad: String;
begin
  strPfad := ExtractFileDir(ParamStr(0))+PathDelim+'Files'+PathDelim+Id+PathDelim+'reports'+PathDelim+Id+'.pdf';

  try
    try
      stream := TMemoryStream.Create;
      stream.LoadFromFile(strPfad);
      stream.Position := 0;
      result := TJsonObject.Create;
      result.AddPair(TJsonPair.Create('data', EncodeBase64(stream.Memory, stream.Size)));

    except on E:Exception do
      begin
        memError.lines.add(E.Message);
      end;
    end;
  finally
    begin
      FreeAndNil(stream);
    end;
  end;
end;

Der Client ruft den Download wie folgt auf

Delphi-Quellcode:

procedure TfrmContent.download(id:String);
var
  restClient: TDsServerClient_Rest;
  size: Int64;
  json: TJsonObject;
begin
  restClient := TDsServerClient_Rest.Create(frmContentProgramm.DSRestConnection1);
  //json := TJsonObject.Create;
  json := restClient.GutachtenDownload(id,size);

end;

Beim Übertragen von einer Datei die ca. 60 MB groß ist, verdoppelt sich der benutzte Arbeitsspeicher des Clients solange bis es knallt.

Kennt jemand das Problem? Bzw. habe ich einen groben Fehler im Code?

Gruß

Philip