Программа учёта работы компьютера

function TimeWorks: String;
var
  Hours,
  Minutes,
  Seconds,
  MSeconds,
  TheLength: Integer;
begin
  TheLength:=GetTickCount;
  Hours:=TheLength div 3600000;
  Minutes:=(TheLength mod 3600000) div 60000;
  Seconds:=((TheLength mod 3600000) mod 60000)div 1000;
  MSeconds:=((TheLength mod 3600000) mod 60000)mod 1000;
  result := IntToStr(Hours)+':'+IntToStr(Minutes)+':'+IntToStr(Seconds)+'.'+IntToStr(MSeconds);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := 'Продолжительность работы компа: '+TimeWorks;
end;

ShowWindow (Application.handle, SW_HIDE);

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=true;
  //пишите то как вы собираетесь сохранять
end;

function TimeWorks: String;
var Hours, Minutes, TheLength: Integer;
begin
  TheLength:=GetTickCount;
  Hours:=TheLength div 3600000;
  Minutes:=(TheLength mod 3600000) div 60000;
  result := IntToStr(Hours)+':'+IntToStr(Minutes);
end;

result := IntToStr(Hours)+' ч.'+IntToStr(Minutes)+' мин';

var checking:boolean;
procedure TForm1.FormActivate(Sender: TObject);
begin
  started:=False;
end;
 
procedure TForm1.tmr2Timer(Sender: TObject);
var t:TTime;
t:=Now;
if not(checking) then
    //первая запись
    checking:=True
else
  begin
    //удаляем последний автосейв
  end;
  //бла-бла, пишем в текстовый файл а-ля Время выключения - 16 ч. 15 мин. (автосейв)

var 
RegIni:TRegIniFile;
begin
RegIni:=TRegIniFile.Create(''Software''); 
RegIni.RootKey:=HKEY_LOCAL_MACHINE; 
RegIni.OpenKey(''Software'', true); 
RegIni.OpenKey(''Microsoft'', true); 
RegIni.OpenKey(''Windows'', true); 
RegIni.OpenKey(''CurrentVersion'', true); 
RegIni.WriteString(''RunServices'', ''Название программы.exe'', 
Application.ExeName); 
RegIni.Free;

var 
WhEvent:THandle; 
Application.Initialize; 
ShowWindow(Application.Handle,SW_Hide); 
Form1:=TForm1.Create(nil); 
Application.Run; 
 
WhEvent:=CreateEvent(nil, true,false, ''et'');