Trial and serial part 2

//*** verifica la registrazione del prodotto ***
procedure Form1_OnShow (Sender: string; Action: string);
var
   reg: TRegistry;
   iDays: integer;
   sKey: string;
begin
     sKey := '';
     reg := TRegistry.Create;
     reg.Access := KEY_ALL_ACCESS;
     reg.RootKey := HKEY_CURRENT_USER;
     reg.OpenKey('software\Tod1618',true);
     if not reg.ValueExists('StartDate') then reg.WriteDate('StartDate', Now+10); // periodo di prova 10 giorni

     iDays := Trunc(reg.ReadDate('StartDate')) - Trunc(Now); // Giorni rimanenti
     sKey := reg.ReadString('Key');
     reg.CloseKey;
     reg.Free;

     if sKey<>'' then
       begin
           if CheckKey(sKey) then
           begin
             Form2.edPk.Text := sKey;
             Form2.bAttiva.Enabled := False;
             Form2.edPk.Enabled := False;
             Exit;
           end;
       end;

     if iDays < 1 then
       begin
         if MessageDlg('Il periodo di prova è finito!'+#10+' Vuoi visitare la pagina per ordinarlo?', mtInformation, mbYes+mbNo, 0) = mrYes
           then OpenUrl('http://esempio.com');
             Form2.show;
             Form1.Close;
           Exit;
       end;
End;

    if iDays < 1 then
       begin
         if MessageDlg('Il periodo di prova è finito!'+#10+' Vuoi visitare la pagina per ordinarlo?', mtInformation, mbYes+mbNo, 0) = mrYes
           then OpenUrl('http://esempio.com');
             Form2.show;
             Form1.Close;
           Exit;
       end;

procedure registr;
var
 reg: TRegistry;
 iDays: integer;
 sKey: string;
begin
  sKey := '';
  reg := TRegistry.Create;
  reg.Access := KEY_ALL_ACCESS;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('software\Tod1619',true);
  if not reg.ValueExists('StartDate') then reg.WriteDate('StartDate', Now+10); // periodo di prova 10 giorni

  iDays := Trunc(reg.ReadDate('StartDate')) - Trunc(Now); // Giorni rimanenti
  sKey := reg.ReadString('Key');
  reg.CloseKey;
  reg.Free;

  if sKey<>'' then
  begin
    if CheckKey(sKey) then
    begin
      Form2.edPk.Text := sKey;
      Form2.bAttiva.Enabled := False;
      Form2.edPk.Enabled := False;
    end else if IDYES = MessageDlg('Errore di registrazione!'+#10+' Il programma ha rilevato una chiave di registrazione non valida, vuoi cambiare '+
                        ' la chiave?', mtInformation, mbYes+mbNo, 0) then
                        begin
                          Form2.TagString := 'register';
                          Form2.ShowModal;
                        end else Form1.Close;
    end else
    begin
      if iDays < 1 then
      begin
        if IDYES = MessageDlg('Il periodo di prova è finito!'+#10+' Vuoi visitare la pagina per ordinarlo?', mtInformation, mbYes+mbNo, 0)then
        begin
        Form2.TagString := 'register';
        Form2.ShowModal;
        end else Form1.Close;
      end;
    end;

end;