Topic: Запомнить последний введенный логин?
По аналогии с запоминанием некоторых данных в соседней ветке, решил "запоминать" последний логин. Все работает, за исключением ошибки, когда ключа еще нет. Помогите, пожалуйста, избежать?
procedure frmLogin_OnShow (Sender: string; Action: string);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.Access := KEY_ALL_ACCESS;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('software\Test_project',true);
frmLogin.cbLogin.dbItemID := reg.ReadInteger('Login');
reg.CloseKey;
reg.Free;
if frmLogin.cbLogin.dbItemID <> -1 then frmLogin.edPassword.SetFocus;
end;
procedure frmLogin_btOk_OnClick (Sender: string; Action: string);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.Access := KEY_ALL_ACCESS;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('software\Test_project',true);
reg.WriteInteger('Login', idUser);
reg.CloseKey;
reg.Free;
end;
