stort problem

uses registry;

procedure TForm1.FormCreate(Sender: TObject);
var
  reg: tregistry;
begin
  reg := tregistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('\SOFTWARE\Dit Program Navn\', true);
  if not reg.ValueExists('notfirstrun') then
  begin
    reg.WriteString('notfirstrun', '');
    showmessage('Første gang du kører dette program!');
    // Create din wizard her
  end;
  // For at slette key igen (til testning)
  // reg.DeleteValue('notfirstrun');
  reg.Free;
end;

jeg kan ikke få det til at virke den vil ikke loade min wizard

hvad hedder din wizard form?

det er en almindelig TForm som jeg har kaldt wizard

ok så kan jeg ikke rigtig se hvorfor dette ikke skulle virke??

procedure TForm1.FormCreate(Sender: TObject);
var
  reg: tregistry;
begin
  reg := tregistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('\SOFTWARE\Dit Program Navn\', true);
  if not reg.ValueExists('notfirstrun') then
  begin
    reg.WriteString('notfirstrun', '');
    showmessage('Første gang du kører dette program!');
    wizard.Show;
  end;
  // For at slette key igen (til testning)
  // reg.DeleteValue('notfirstrun');
  reg.Free;
end;

jeg får en fejlen access violation at address 00469f8e in module 'motion.exe' read of address 000002f4 hvis der ikke står noget (Dit Program Navn) i reg men står det der får jeg ikke nogen fejl

slet wizard fra din dpr project fil.

procedure TForm1.FormCreate(Sender: TObject);
var
  reg: tregistry;
  Wizard : Twizard;
begin
  reg := tregistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('\SOFTWARE\Dit Program Navn\', true);
  if not reg.ValueExists('notfirstrun') then
  begin
    reg.WriteString('notfirstrun', '');
    showmessage('Første gang du kører dette program!');
    Wizard := Twizard.create(nil);
    wizard.Showmodal;
    wizard.free;
  end;
  // For at slette key igen (til testning)
  // reg.DeleteValue('notfirstrun');
  reg.Free;
end;


Du skal nok tilføje wizards unit til uses.

tak for hjælp ;)