Сохранение времени запуска и выключения приложения

[DeKot]

Нужно в файле .log сохранить каждое время вкп. и выкл. приложения. Вот код :

var
  Form1: TForm1;
  Time_ON,TIME_OFF: string;
  f: TextFile;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
  Time_ON:= 'ВКЛ.-  ' + DateToStr(Now) + '    ' + TimeToStr(Now);
  AssignFile(f,'monit.log');
  {$I-}
  Append(f);
  {$I+}
  if IOResult = 0 then  // при каждом запуске программы
                        // после первого (файл .log уже создан 
  begin
    Writeln(f,Time_ON);
    CloseFile(f);
  end
  else
  begin
    ReWrite(f); // при первом запуске программы
    Writeln(f, Time_ON);
    CloseFile(f);
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin

  {Time_OFF:= 'ВЫКЛ.-  ' + DateToStr(Now) + '    ' + TimeToStr(Now);
  AssignFile(f,'monit.log');
  Append(f);
  Writeln(f, Time_OFF);
  CloseFile(f);}

  Form1.Close;
end;

end.

С временем вкл. проблем нет.При использовании процедуры FormClose с использованием системной кнопки закрытия (Х), файл заполняется ежесекундно временем без остановки и приложение зависает
Screen2.
Если убрать в FormClose код в фиг. скобках и оставить только команду Form1.Close; - выдает

Screen1

и также приложение зависает.В чем проблемы?
Да, если для закрытия использую Button c процедурой OnClick и в ней этот же код ,что и для FormClose, все работает.

[mihali4]

Ваш код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin

  Time_OFF:= 'ВЫКЛ.-  ' + DateToStr(Now) + '    ' + TimeToStr(Now);
  AssignFile(f,'monit.log');
  Append(f);
  Writeln(f, Time_OFF);
  CloseFile(f);

  Form1.Close;
end;

Выкиньте красное - оно ни к чему...

[SERG1980]

implementation

{$R *.dfm}
 var log:TStringList;
procedure TForm2.FormCreate(Sender: TObject);
begin
 log:=TStringList.Create;
 try
  log.LoadFromFile('monit.log');
 except
 end;
 log.Add('Запуск в '+FormatDateTime('dd.mm.yy hh:nn:ss',Now));
 log.SaveToFile('monit.log');
 log.Free;
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
 log:=TStringList.Create;
 try
  log.LoadFromFile('monit.log');
 except
 end;
 log.Add('Завершено в '+FormatDateTime('dd.mm.yy hh:nn:ss',Now));
 log.SaveToFile('monit.log');
 log.Free;
end;

end.

[DeKot]

Ну да, как всегда все просто. Всем спасибо!