Fórum Tempo Ocioso em um sistema conectado a um banco MySql #511835

Tenho uma dúvida, o Meu sistema possuí uma data_module que faz a conexão com o banco mysql, em seguida outros forms usam o mesmo para acessar o banco, depois de determinado tempo sem mexer no sistema ele apresenta o erro "MySQL server has gone away..." eu gostaria de mostrar em um show message o tempo que o sistema ficou sem acessar ou editar o banco.

eu tentei este código:

//==========================================
function Inativo: Integer;
var
InpInfo: TLastInputInfo;
begin
InpInfo.cbSize := SizeOf(TLastInputInfo) ;
GetLastInputInfo(InpInfo) ;

Result := ((GetTickCount - InpInfo.dwTime) DIV 1000);

if Result > 60 then
begin
Result := trunc(Result/60);

if Result = 0 then
Result :=1; //Aproxima o Tempo Truncado que ficou em zero para 1 minuto. Corrige o erro de 0 minuto.
time:= 'Minuto(s).';
end
else
time:= 'Segundo(s).';
end;
//==========================================

mas me retorna 0 segundos, pois quanquer ação feita no sistema zera o result. e o erro "MySQL server has gone away..." só é exibido quando tento mexer no mesmo.

como gerar o erro:

- Inicio o sistema
-Finalizo Serviço Mysql
- O erro é exibido