>Thankyou Mike,
>
>Just out of interest mike what if I had another variable that I wanted to store to a text2 field.
>
>

>PROCEDURE basearti()
>	STORE "F*0001" TO cArtikey
>        STORE "ZOOM" to cSupplier
>ENDPROC
>

>
>Therefore I wanted cArtikey in Text1 field and cSupplier in Text2 field.
>
>Many Thanks for your help



Try

In Init Event of the TForm

LOCAL oTxt
oTxt = BaseArti()
Thisform.text1.Value = oTxt.ArtiKey
Thisform.text2.Value = oTxt.Supplier



**** Function  BaseArti()
FUNCTION BaseArti()

  LOCAL oEmpty
  oEmpty = CREATEOBJECT("Empty")
  ADDPROPERTY(oEmpty,"ArtiKey","F*0001")
  ADDPROPERTY(oEmpty,"Test2","ZOOM")

RETURN oEmpty