Hola, bueno eso lo puedes hacer con el control timer. colocas el control le modificas la propiedad interval y pones en el método timer un código como este
- If(Alltrim(Thisform.Caption) == "") Then 
-   Thisform.Caption = "Titulo del formulario" 
- Else 
-   Thisform.Caption = "" 
- Endif 
-