[lmikle]

Ну попробуй прочитать это значение.

Код:

var
  R : TRegistry;
  F : Boolean;
begin
  F := False;
  R := TRegistry.Create;
  If R.OpenKeyreadOnly('Software\MyProgram\MySettings') Then
    begin
       If R.ValueExists('MyValue') Then
         F := R.ReadInteger('MyValue') = 1;
       R.CloseKey;
    end;
  R.Free;
 
  If F Then DoIf_1() Else DoIf_0();
end;