Zählen wie oft eine Form aufgerufen worden ist

[faux]

so übersteht das auch ein schließen des programms:

Delphi-Quellcode:

procedure TForm1.IntToReg(path, name: string; wert: integer);
var regist: TRegistry;
begin
     try
        regist := TRegistry.Create;
        regist.RootKey := HKEY_CURRENT_USER;
        regist.OpenKey(path, true);
        regist.WriteInteger(name, wert);
     finally
        regist.Free;
     end;
end;

function TForm1.RegToInt(path, name: string): integer;
var regist: TRegistry;
begin
    Try
      try
        regist := TRegistry.Create;
        regist.RootKey := HKEY_CURRENT_USER;
        regist.OpenKey(path, true);
        result := regist.ReadInteger(name);
      finally
        regist.Free;
      end;
     Except
        result := -1;
     end;
end;

Procedure TForm1.FormCreate(Sender: TObject);
const
  path = 'Software\alanblack\Programm\1.0';
begin
  if RegToInt(path, 'opens') = -1 then
    IntToReg(path, 'opens', 1)
  else
    IntToReg(path, 'opens', RegToInt(path, 'opens') + 1);
end;