PC "AN ZEIT" auslesen

[BullsEye]

Delphi-Quellcode:

function AFK: DWord;
var
   last: TLastInputInfo;
begin
  last.cbSize := SizeOf(TLastInputInfo) ;
  GetLastInputInfo(last) ;
  Result := (GetTickCount - last.dwTime) DIV 1000;
end;

procedure TfrmMain.Timer2Timer(Sender: TObject);
begin
  IF (AFK >= 1) THEN BEGIN
  Label2.Caption := Format(' Tagen,  Stunden, Minuten und %d Sekunden', [Afk]);
  END;

Damit kann ich die Zeit seit der letzten Maus/Tastaturbewegung messen. Allerdings nur in Sekunden. Wie kann ich das am besten umrechnen? Iwie bin ich zu blöde dazu.
Was aber ein viel größeres Problem ist, ist das er die Zeit nicht speichert sondern nach einer Bewegung und dem folgendem 'AFK' wieder bei 0 anfängt.