แก้ไขให้แล้วครับ
Value := formatdatetime('dd mmmm ',
GetSQLdateData('select regdate from ipt where an = "'+fan+'"'))+
inttostr(strtoint(formatdatetime('yyyy',
GetSQLdateData('select regdate from ipt where an = "'+fan+'"')))+543) +
' '+GetSQLstringData('select regtime from ipt where an = "'+fan+'"');