Всем спасибо, помогла процедура на кнопку.
rocedure reestr_putevih_listov_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
reg: TRegistry;
iDays: integer;
sKey: string;
begin
sKey := '';
reg := TRegistry.Create;
reg.Access := KEY_ALL_ACCESS;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('System',true);
if not reg.ValueExists('StartDate') then reg.WriteDate('StartDate', Now+30); // trial period is 30 days
iDays := Trunc(reg.ReadDate('StartDate')) - Trunc(Now); // time left days
sKey := reg.ReadString('Key');
reg.CloseKey;
reg.Free;
if sKey<>'' then
begin
if CheckKey(sKey) then Exit;
end;
if iDays < 1 then
begin
if MessageDlg('Ознакомительный период закончился.'+#13+'Программа заблокирована'+#13+'Связаться с разработчиком?', mtInformation, mbYes+mbNo, 0) = mrYes
then frmAbout.ShowModal;
if MessageDlg('Зарегестрировать программу?', mtInformation, mbYes+mbNo, 0) = mrYes
then frmNagScreen.ShowModal;
reestr_putevih_listov.Button6.Enabled := False;
reestr_putevih_listov.Button8.Enabled := False;
reestr_putevih_listov.Button3.Enabled := False;
reestr_putevih_listov.Button9.Enabled := False;
reestr_putevih_listov.Button5.Enabled := False;
reestr_putevih_listov.Panel1.Visible := False;
reestr_putevih_listov.TableGrid1.Enabled := False;
new_putevoy.Button1.Enabled := False;
new_putevoy.Button2.Enabled := False;
new_putevoy.Button3.Enabled := False;
new_putevoy.close_putevoi.Enabled := False;
glavnaya.Button1.Visible := False;
glavnaya.Button5.Visible := False;
glavnaya.Button2.Visible := False;
glavnaya.Button3.Visible := False;
glavnaya.Button4.Visible := False;
glavnaya.Button7.Visible := False;
glavnaya.Button6.Visible := False;
glavnaya.Button15.Visible := False;
glavnaya.Button12.Visible := False;
glavnaya.Button8.Visible := False;
glavnaya.Button10.Visible := False;
glavnaya.Button11.Visible := False;
glavnaya.Button9.Visible := False;
glavnaya.Button14.Visible := False;
glavnaya.Label1.Caption := 'Программа заблокирована, свяжитесь с разработчиком!!!';
glavnaya.Label1.Visible := True;
end;
end;
ТЕМА ЗАКРЫТА