[shoulder]

Los vuelvo a molestar, 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.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);
begin
if GetTickCount - UltimoAcceso > 1600000 then 
  begin
    zconnection1.Connected := FALSE;
    form1.close;
  end;
end;