1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

//...
  public
  fVirtualRE: TRichEdit;
    { Public-Deklarationen }
  end;
//...
procedure TForm1.FormCreate(Sender: TObject);
begin
  fVirtualRE := TRichEdit.CreateParented(THandle(-3));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  fVirtualRE.Free;
end;

function StripText(RE: TRichEdit;sRTF: String): String;
begin
  RE.Clear;
  RE.SelText := sRTF;
  Result := RE.Text;
end;{}

procedure TForm1.ButtonClick(Sender: TObject);
var s : String;
begin
  s :=  '{\rtf1\ansi\ansicpg1252\deff0'
     +'{\fonttbl{\f0\fnil\fc harset0 MS Sans Serif;}'
     +'{\f1\fnil MS Sans Serif;}}'
     +'\viewkind4\uc1\pard\lang1031\f0\fs16 Hallo \f1 Welt!\par}';
  showmessage(StripText(fVirtualRE,s));
end;					

1:

WoEsHinSoll := StripText(fVirtualRE,dataset.fieldbyname().asstring);					

1:
2:
3:
4:
5:
6:

procedure TForm.zQueryCalcFields(DataSet: TDataSet);
begin
  WoEsHinSoll := DBRichEdit.Text;    //------> und fertig iss die sache


end;