Proteção

crie um procedimento chamado verificar;//procedimento privado;

PRIVATE

procedure verificar; //depois de criado pressione Ctrl+Shift+C

crie uma variavel chamada sharedata; // varivel global

var
sharedata:Tdatetime;

Procedure Tformpricipal.verificar;
begin
  sharedata:=strtodate(''''20/05/211'''');//aqui vc escolha a data de expiração do sisteminha.
  if date > sharadata then
  begin
    showmessage(''''Programa expirou , procure um administrador'''');
    application.terminate;
  end;

click no timer e coloque o procedimento
verificar;
no Oncrate do formulario coloque tambem o procedimento.

verificar;
pronto! seu sistema de expiração esta apto a modificações fique a vontade.

Leia mais em: Proteção contra pirataria simples -DEMO http://www.devmedia.com.br/protecao-contra-pirataria-simples-demo/21203#ixzz3h0fOxnOY