[rufo]

Ok amigo mira te voy a dejar el codigo hasta donde quedo ya solucionado mis dudas cabe mencionar que todavia falta hacerle algunos detalles y posteriormente lo subire al club, te dejo el codigo.

procedure TBORRAR.Timer1Timer(Sender: TObject);
var
fecha: string;
//FileOpInfo: TShFileOpStruct;
begin
  ShortDateFormat := 'dd/mm/yyyy';
  label1.Caption:= DateToStr(Date);
  fecha:= '06/04/2010';
  if Date = StrToDate(fecha) then
  Begin
    if messagedlg('El software de prueba ya caduco,¿desea comprar la version total? ',mtconfirmation,[mbok],0)=mrok then
     application.Terminate;

Echale un ojo y me dices si te sirve.Saludos