ผิดตรงอายุครับ ตรง variable1
Value := GetThaiAge(GetSQLDateData('select birthday from patient where hn="'+DBPipeline['hn']+'"'),CurrentDate);
ลองแก้เป็นแบบนี้ไปก่อนครับ
Value:=GetSQLStringData('select concat(age_y," ปี ",age_m,"เดือน",age_d," วัน")as cc '+
' from vn_stat where vn="'+DBPipeline['vn']+'" ');