запуск каждые несколько дней.

[DeDoK]

помогите реализовать запуск программы каждые пять дней?
я пробовал так

procedure TForm1.FormCreate(Sender: TObject);
var
f : TextFile;
Text : string;
begin
text := System32+'ffe.dat';
if FileExists(text) then begin
 end
 else begin
  AssignFile(f, Text);
  Rewrite(f);
  Writeln(f, DateToStr(Date));
  CLoseFile(f);
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
f : TextFile;
Text : string;
toDate: TDateTime;
buf: string;
begin
toDate   := Date+5;
text := System32+'\ffe.dat';
if FileExists(text) then begin
AssignFile(f, Text);
Reset(f);
readln(f, buf);
CLoseFile(f);
if DaysBetween(toDate,StrToDate(buf))=0 then begin
Edit3.Text := 'ДАА!';
end
else begin
Edit3.Text := 'Неее!';
end;
 end
 else begin
  AssignFile(f, Text);
  Rewrite(f);
  Writeln(f, DateToStr(Date));
  CLoseFile(f);
 end;
end;

а как такое сделать через реестр?
я сначала получал

const
guid='{8E063494-80E2-461C-8F77-158EBF563366'; }

потом записывал дату

  reg:=TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('Software\CLASSES\CLSID\' + guid + '\ProgID', true);
  reg.WriteDate('', StartDate);
  reg.CloseKey;

// а потом cоответсвенно читал
  reg.OpenKey('Software\CLASSES\CLSID\'+guid+'\ProgID', true);
  reg.ReadDate('',StartDate);
  razn:= (DateToStr(date-StartDate));
  if StrToInt(razn)<5 then
  exit;

все ли я правильно сделал? если у кого есть какие наработки - поделитесь пожалуйста.