Dear Experts

In timer, I use following command to show Form Capion

dtime= cdow(DATE())+ALLTRIM(",")+SPACE(1)+Cmonth(date())+Str(Day(date()), 3);
+','+Str(Year(date()), 5)

cap1=ALLTRIM("Ginning Accounting System")
thisform.Caption=ALLTRIM(cap1)+SPACE(16)+ALLTRIM(dtime)+space(3)+ttoc(datetime(),2)

This show Form's Caption as

Ginning Accounting System                Tuesday, February 12, 2008   05:29:32 PM

Now I want to apply this command on every form in project

I do not use Screen in my main prg.
There is a main Form SHOWWINDOW=2, TOP LEVEL and all other forms are opend in this form.

What should I add in my main prg?

Please help