Change KeyPress to:

 PROCEDURE text1.KeyPress
        LPARAMETERS nKeyCode, nShiftAltCtrl

        IF INLIST(nKeyCode, 5, 9, 13, 15, 24) && DownArrw (24), UpArrow (5), Tab (9), Shift+Tab(15), Enter(13)
           DODEFAULT(nKeyCode, nShiftAltCtrl)
           RETURN
        ENDIF

        NODEFAULT 
        IF nKeyCode > 31 AND NOT thisform.Starttyping
           thisform.Starttyping = .t.
           this.ForeColor       = RGB(0,0,0)
           this.Value           = []
        ENDIF

        DODEFAULT(nKeyCode, nShiftAltCtrl)

        IF EMPTY(this.Value) OR;
           ALLTRIM(this.Value) == "ClaimNo./Claimant"
           thisform.Starttyping = .f.
           this.ForeColor = RGB(192,192,192)
           this.Value = "ClaimNo./Claimant"
           this.SelStart = 0
        ENDIF

    ENDPROC

>thanks works perfectly. I abandond my version. But one problem:
>hitting the enter key does not leave the control to run the code in lostfocus()
>:-((
>Peter