|
bueno puedes utilizar una variable publica llamada por ejemplo Control ( integer). en alguna parte del programa inicializas el reloj
Timer1.Enabled := True;
Control:=0;
luego utiliza el evento OnTimer
procedure TForm1.Timer1Timer(Sender: TObject);
begin
control:=control+1;
//al llegar a un minuto
if control = 60 then
begin
//haces lo que quieras con las tablas y vuelves el contador a cero
control:=0;
end;
end;
espero que te sirva de ayuda
|