Tekst w TEdit

Mam taki kod:
W create formy

Reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey('Software\PROGRAM',false) then
edit1.Text:=reg.ReadString('tekst');{

mzoe zamien
if reg.OpenKey('Software\program',false) then
edit1.Text:=reg.ReadString('tekst');{

na

reg.OpenKey('Software\program',true)
edit1.Text:=reg.ReadString('tekst');

ja bym zrobił tak:

var
reg: TRegistry;
cz_jest: Boolean;
begin
try
reg := Tregistry.Create;
cz_jest := Reg.OpenKey('program', false); //dlatego tak, bo wszystkie wartości są domyślnie zapisywane do Software, a false oznacza blokadę modyfikacji klucza
if not cz_jest then
[tu co ma się stać gdy się uruchomi po raz pierwszy]
else
Edit1.Text := reg.readString('nazwa');
finally
reg.free;
end;
end;