Fehler beim erstellen eines dbRichEdit

[Nalincah]

Hi

Ich versuch in einer Funktion einen TDBRichEdit und eine TDataSource zu erstellen

Delphi-Quellcode:

procedure FormatText(Feldname,Feldinhalt:string;FontDialog:TFontDialog);
var
  dbRichEdit : TDBRichEdit;
  DS:TDataSource;
begin
  DS := TDataSource.Create(nil);
  DS.Name := Feldname + Feldinhalt;
  DS.DataSet := datamain.ZielTab;

  dbRichEdit := TDBRichEdit.Create(nil);
  dbRichEdit.Name := Feldname + Feldinhalt;
  dbRichEdit.DataSource := DS;
  dbRichEdit.DataField := Feldname;  // <-- Hier kracht er (Siehe Anhang)
  dbRichEdit.SelAttributes.Color := FrmMain.FontDialog1.Font.Color;
  dbRichEdit.SelAttributes.Size := FrmMain.FontDialog1.Font.Size;
  dbRichEdit.SelAttributes.Style := FrmMain.FontDialog1.Font.Style;
  dbRichEdit.Lines.Add(Feldinhalt);
end;

In Feldname steht was drin
Woran liegt das?