1:
2:
3:
4:
5:
6:
7:
8:

Case MessageDlg('Möchten Sie den Vorspanntext...' + #10 +
       'Ja: hinzufügen.' + #10 +
       'Nein: ersetzen.', mtInformation, [mbYes, mbNo, mbAbort], 0) of
  mrYes: _TMemos_Kombinieren(TMemoField(IBQAuftrag.FieldByName('VORSPANNTEXT')), 
                             TMemoField(IBQTextbaustein.FieldByName('VORSPANNTEXT1')), 
                             TMemoField(IBQTextbaustein.FieldByName('VORSPANNTEXT2')));
  mrNo: TMemoField(IBQAuftrag.FieldByName('VORSPANNTEXT')) := IBQTextbaustein.FieldByName('VORSPANNTEXT1').Value;
end;					

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

procedure TForm._TMemos_Kombinieren(ZielMemo, Memo1, Memo2 : TMemoField);
var
  sRE1, sRE2 : TDBRichEdit;
begin
  sRE1 := TDBRichEdit.Create(Self);
  sRE1.Parent:= TWinControl(ZielMemo.Owner);
  sRE1.DataSource := Memo1.DataSet.DataSource;
  sRE1.DataField := Memo1.FieldName;

  sRE2 := TDBRichEdit.Create(Self);
  sRE2.Parent:= TWinControl(ZielMemo.Owner);
  sRE2.DataSource := Memo2.DataSet.DataSource;
  sRE2.DataField := Memo2.FieldName;

  ZielMemo.Text := sRE1.Text + sRE2.Text;
end;					

1:
2:
3:

 Stream := TStream.Create;
 sRE1.Lines.SaveToStream(Stream);
 qry_AufStammAUFBESTVORSPANN.LoadFromStream(Stream);					

1:
2:
3:

 Stream := qry_AufStamm.CreateBlobStream(qry_AufStammAUFBESTVORSPANN, bmReadWrite);
 sRE1.Lines.SaveToStream(Stream);
 qry_AufStammAUFBESTVORSPANN.LoadFromStream(Stream);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  Stream: TStringStream;

Stream := TStringStream.Create('');
try
  sRE1.Lines.SaveToStream(Stream);
  ShowMessage(Stream.DataString);
finally
  Stream.Free;
end;