[LiveBindings, DSharp]binden Feld/Variable<->TEdit

[Jens01]

Also ein entsprechendes LiveBindings-Sample habe ich irgendwie nicht gefunden. Ich habe aber mit dem TBindScope weitergemacht und es funktioniert schon halb.
Auf dem VCL habe ich ein TEdit und ein TButton und folgenden Code:

Delphi-Quellcode:

  TForm1 = class(TForm)
    bndscp1: TBindScope;
    edt1: TEdit;
    bdglst1: TBindingsList;
    bndxprsnedt: TBindExpression;
    btn1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  end;

  TTest = class
  public
    s: string;
  end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMessage(Test.s);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Test := TTest.Create;
  Test.s := 'xxxyyy';
  bndscp1.DataObject := Test;
end;

SourceExpression ist auf Test.s gesetzt.
In der TEdit wird jetzt korrekt 'xxxyyy' angezeigt. Aber bei Änderung des TEdit.Text ändert sich Test.s nicht.

Da gibt es doch bestimmt eine noch fehlende Einstellung, oder? Ich hatte mit diesem Direction schon rumgespielt, brachte aber nichts.