Timer

[nenufer]

Gracias por contestar. Mi problema era q no sabia q poner en el ontimer. Gracias ya veo que era muy sencillo. Pero ahora tengo un pequeño problema.
A ver, estoy replicando una tabla y quiero que cuando pasen 30 segundos todos los registros que tenga se inserten en la tabla destino. Si pongo:

Código Delphi [-]
  
procedure TDM.TTimerTimer(Sender: TObject);
begin   
 messagedlg('Se va a lanzar la replicacion',mtInformation,[mbYes],0);
 Form1.LanzarReplica();
end;

todo funciona bien. Pero cuando la tabla no tiene nada tambien muestra el mensaje, y no quiero que lo haga. Entonces hago lo siguiente:

Código Delphi [-]
 
procedure TDM.TTimerTimer(Sender: TObject);
begin   
 if not Tabla.IsEmpty then
    begin
      messagedlg('Se va a lanzar la replicacion',mtInformation,[mbYes],0);
      LanzarReplica();
    end
end;

y cuando ejecuto si la tabla tiene algo lo hace todo, pero cuando ya no tiene nada pues no pasa por la condicion, que es lo que yo quiero. Pero si introduzco algo en la tabla no entra. Porque hace eso si la tabla no esta vacia? Todo esto en ejecucion.
Espero que me entendais, sino lo intentare hacerlo mejor
Gracias