[MegaPiha]

Ну может что то типа этого...Для начала конечно надо создать таблицу в БД. 1- поле id - ключевое, 2- поле - data -дата.

Код:

Var d:Integer;  
  if DM.ADOTable1.RecordCount=0 then
     begin
        DM.ADOTable1.Edit;
        DM.ADOTable1.FieldByName('data').AsDateTime:=now;
        DM.ADOTable1.Post;
        MessageDlg('Срок действия лицензии составляет 30 дней.", mtInformation, [mbOk], 0)
     end
     else
     begin
       if (now+30)> (DM.ADOTable1.FieldByName('data').AsDateTime) then
       begin
          d:=DaysBetween(now+30,(DM.ADOTable1.FieldByName('data').AsDateTime));
          MessageDlg('До истечения лицензии осталось '+IntToStr(d)+' дней', mtInformation, [mbOk], 0)
       end
       else
       begin
           MessageDlg('Срок действия лицензии истек!', mtInformation, [mbOk], 0);
       end;
     end;

И конечно нужно предусмотреть, если лицензия закончилась чтобы программа закрывалась.