ComboBox1 İçeriğini Kaydetme

[TescilsizUzman]

(14-09-2019, Saat: 14:52)OZCANK Adlı Kullanıcıdan Alıntı: cinarbil ve emeği geçen arkadaşlara çok teşekkür ederim. Allah sizlerden Razı Olsun. Yüreğinize sağlık

Şu şekilde Kullandım ve sorunum çözüldü;

procedure RegDegerYaz(const Anahtar, Deger: String);
var
Alan:Tregistry;
begin
try
  Alan := tregistry.Create;
  Alan.RootKey := HKEY_LOCAL_MACHINE;
  if Alan.OpenKey('\Software\EmanetPro\Ayarlar\', True) then
  begin
    Alan.WriteString(Anahtar, Deger);
  end;
finally
  Alan.Free;
end;
end;
////////////////
Function RegDegerOku(const Anahtar: String): String;
var
Alan: TRegistry;
begin
Result := '';
try
  Alan := TRegistry.Create;
  Alan.RootKey := HKEY_LOCAL_MACHINE;
  if Alan.OpenKey('\Software\EmanetPro\Ayarlar\', False) then
  begin
    Result := Alan.ReadString(Anahtar);
  end;
finally
  Alan.Free;
end;
end;

procedure TForm19.ComboBox2Exit(Sender: TObject);
begin
RegDegerYaz('ComboBox2', IntToStr(ComboBox2.ItemIndex));
end;
////////////////
procedure TForm19.FormCreate(Sender: TObject);
begin
ComboBox2.ItemIndex := StrToInt(RegDegerOku('ComboBox2'));

---

Bu hatayı neden veriyor anlamadım;

[Warning] RAPORU.pas(442): Variable 'Alan' might not have been initialized
[Warning] RAPORU.pas(471): Variable 'Alan' might not have been initialized

Merhaba,
Warning, hata değil bir uyarıdır.