Expirar Sesion bajo Delphi

[shoulder]

Sigo viendo no encuentro nada porque en 10 pc funciona perfecto y en esas dos se cierra al instante....

Hace 1 mes habia solucionado el problema con la rutina que copie del foro para que una persona no tenga abierto el programa sin usar mas de media hora. pero no se porque!!! en dos maquinas se abre la aplicacion y se cierra al instante mientras en las otras funciona perfecto.
Gracias


Código Delphi [-]


procedure TForm1.FormCreate(Sender: TObject);
begin

UltimoAcceso := GetTickCount;

end;


procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);begin // interceptamos eventos de teclado y ratón if ((Msg.message >= WM_KEYFIRST) AND (Msg.message <= WM_KEYLAST)) OR ((Msg.message >= WM_MOUSEFIRST) AND (Msg.message <= WM_MOUSELAST)) then UltimoAcceso := GetTickCount;end;procedure TForm1.Timer1Timer(Sender: TObject);beginif GetTickCount - UltimoAcceso > 1600000 then begin zconnection1.Connected := FALSE; form1.close; end;end;