>We want to copy a file , delimeted with the header row.

In addition here an example, but it not working well if you have some TABs in fields:

IF SELECT("YourTableAlias") == 0
   USE YourTable ALIAS YourTableAlias IN 0
ENDIF
c_title = ""
FOR asd = 1 TO FCOUNT()
    c_title = IIF(asd==1,"",";")+FIELDS(asd)
NEXT
_VFP.DataToClip("YourTableAlias",,3)
c_title = c_title + +CHR(13)+CHR(10)+STRTRAN(_cliptext,CHR(9),";")
STRTOFILE(c_title,"Text.TXT")

****** Update

There is no need to run the Cikle

IF SELECT("YourTableAlias") == 0
   USE YourTable ALIAS YourTableAlias IN 0
ENDIF
_VFP.DataToClip("YourTableAlias",,3)
c_title = c_title + +CHR(13)+CHR(10)+STRTRAN(_cliptext,CHR(9),";")
STRTOFILE(c_title,"Text.TXT")