Como usar o Refresh ....

[cunha2020]

Coloquei um form com uma tabela onde desejo mostrar a cada 30 segundos as tabelas atualizadas. O máximo que consegui foi fazer com as tabelas sempre mostrassem a penultima atualização. A ultima sempre ficava pendente, esperando um novo refresh.
O código que estou usando é:

TabGlobal.Dapuracao.Open;
TabGlobal.Dapuracao.Inclui( Nil );
TabGlobal.Dapuracao.secao.Conteudo := edit1.text;
TabGlobal.Dapuracao.candidato.Conteudo := edit2.text;
TabGlobal.Dapuracao.votos.Conteudo := StrToInt( edit3.text );
TabGlobal.Dapuracao.Salva;
If Ptabela(TabGlobal.DApuracao, ['SUM(VOTOS)'], 'candidato = '+Edit2.Text, cTotalGeral ) then
Begin
If Length( Edit2.Text ) = 2 Then
Begin
If Not PTabela( TabGlobal.Dcandidato,['Numero'],[Edit2.Text],'Votos=Votos+'+Edit3.Text ) Then
ShowMessage( 'Ocorreu um erro ao lançar os '+Edit3.Text+' votos da seção '+Edit1.Text+#13+
'do candidato '+Edit2.Text );
End;
If Length( Edit2.Text ) = 5 Then
Begin
If Not PTabela( TabGlobal.DVereadores,['Numero'],[Edit2.Text],'Votos=Votos+'+Edit3.Text ) Then
ShowMessage( 'Ocorreu um erro ao lançar os '+Edit3.Text+' votos da seção '+Edit1.Text+#13+
'do candidato '+Edit2.Text );
End;
End;

Como faço para que o sistema gerado pelo xmaker, atualize as tabelas dos outros computadores, quando eu gravar um novo registro??

Desde já agradeço,

Cunha.

[Leão]

logo abaixo da tabela.salvar;
tabela.Refresh;


ou colocar um timer, e na tela onde é preciso ver, colocar o tempo em segundos,
no evento onShow do formulário em questão.

obrigado,
Leão