Cerrar Aplicación

[shoulder]

Una pregunta como se hace para que una aplicación a las 4 horas de no ser usada se cierre?. Yo hice esto la cierra pero cuandoi llamo al programa de vuelta se abre y se cierra en el momento.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if GetTickCount - UltimoAcceso > 1600000 then
begin
zconnection1.Connected := FALSE;
form1.close;
end;
end;