Serie Nummer?!?

gem det i registrerings databasen, hvis det skal være lidt smart krypter det.

Ja, men hvordan?

og så kontrolere du om værdien i reg basen er ok i forhold til programmet hvis ikke vises menuen, eller ikke.

Ok, jeg vil gerne se noget kode pleaze!

Her er et eksempel:

Uses ShellAPI;

procedure TForm1.FormCreate(Sender: TObject);
var
  key: HKey;
  Res,cb: Longint;
  SubKey,Value: String;
begin
  key := HKEY_CLASSES_ROOT;
  SubKey := \'RegTest\';  {Ændres til noget fornuftigt}
  if RegQueryValue(Key,@Subkey[1],@Value[1],cb) = ERROR_SUCCESS Then
    Label1.Caption := \'Værdien er: \'+Value  {Hvis den eksisterer}
  else
  Begin
    Value := \'12345\'+#0;  {Den skal være 0-afsluttet}
    if RegSetValue(Key,@SubKey[1],REG_SZ,@Value[1],Length(Value))
                      =  ERROR_SUCCESS Then
      Label1.Caption := \'Første gang - Gemt\'
    else
      Label1.Caption := \'Fejl ved skrivning\';
  end;
end;

NB! SubKey skal også afsluttes med 0, dvs.
  SubKey := \'RegTest\'+#0;