закрыть программу после 10 мин простоя

[beegl]

Привет, подскажите пожалуйста, как закрыть программу после 10 мин простоя (чем отслеживать)
Что-то нашел , как с этим работать?

WaitforSingleObject(SEInfo.hProcess, INFINITE)

определения времени простоя приложения

function SecondsIdle: DWord;
var
    liInfo: TLastInputInfo;
begin
    liInfo.cbSize := SizeOf(TLastInputInfo);
    GetLastInputInfo(liInfo);
    Result := (GetTickCount - liInfo.dwTime) div 1000;
end;

Закрыть форму при простое приложения

procedure TFmMAIN.Timer1Timer(Sender: TObject);
var
t: Integer;
begin
t := StrToInt(Format('%d', [UUser.SecondsIdle]));
if t >= 15 then // Тут нужно указать количество секунд до закрытия
Close;
end;