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

for x := 0 to ((y div 2)-1) do begin
     stream1 :=TMemoryStream.Create;
     SDTable1.open;
     SDTable1.Edit;
     TBlobField(SDTable1.FieldByName('InhaltDE_Text')).SaveToStream(stream1);
     stream1.Position := 0;
     stream2.Position := stream2.Size;
     stream2.CopyFrom(stream1,0);// die Größe von stream2 ändert sich 
     stream1.free;
end;

 Stream2.Position := 0;
 JvRichEdit1.StreamFormat := sfRichText;
 JvRichEdit1.Lines.loadfromstream(stream2);// die texteditor lädt nicht die komplette stream2 auf
end;					

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

stream2 :=TMemoryStream.Create;

  for x := 0 to ((y div 2)-1) do begin
     
     stream1 :=TMemoryStream.Create;
     SDTable1.open;    SDTable1.locate('TXTNr;SprID',VarArrayOf([string(b[2*x+1]),string(a[0])]),[loPartialKey]);
     TBlobField(SDTable1.FieldByName('InhaltDE_Text')).SaveToStream(stream1);
     stream1.Position := 0;
     stream2.Position := stream2.Size;   
     stream2.CopyFrom(stream1,0);
     stream1.free;
end;
  Stream2.Position := 0;
  JvRichEdit1.StreamFormat := sfRichText;
  JvRichEdit1.Lines.loadfromstream(stream2);
  stream2.Free;
end;