Edit Feld mit Text vorbelegen

[kuba]

Hallo,

wie kann ich ein Edit Feld mit Text vorbelegen ?

Mein Codefetzen:

Delphi-Quellcode:

procedure TForm1.LabeledEdit1Change(Sender: TObject);
var registrierung:TRegistry; //uses registry nicht vergessen
begin
      text := (LabeledEdit1.Text);
     begin
      Registrierung:=Tregistry.Create;
      Registrierung.Rootkey:=HKEY_CURRENT_USER;
      try
         Registrierung.OPENKEY('\Software\KUBA\Program',true);
      except
         Registrierung.CreateKey('\Software\KUBA\Program');
      end;
      Registrierung.WriteString('Program', text); //Anwendung in Registry schreiben
      Registrierung.free;
      end;
end;

Im Objectinspector finde ich unter Properties LabeledEdit1 das Feld "Text", wenn ich dort Text eingebe erscheint der Text als Vorbelegung im Edit Feld, ich möchte den Text jedoch aus einer Variable bzw. aus der Registry auslesen und das Edit Feld damit vorbelegen.

Gibt es dafür eine einfache Lösung ??

kuba

[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen. Mfg, SirThornberry[/edit]