var REG : TRegistry;

begin

REG := TRegistry.Create;

REG.RootKey:=HKEY_LOCAL_MACHINE;
REG.OpenKey('YourSoftwareName',true);
REG.WriteString('Edit1.Text',true);
REG.CloseKey;
REG.Destroy;
end;

-------------------//--------------------------

var REG : TRegistry;

begin

REG := TRegistry.Create;

REG.RootKey:=HKEY_LOCAL_MACHINE;
REG.OpenKey('YourSoftwareName',true);
Edit1.Text:=REG.ReadString('Edit1.Text',true);
REG.CloseKey;
REG.Destroy;
end;