hin_msg := '有 '+Hin_Info_Table.FieldValues ['department']+' '+Hin_Info_Table.FieldValues ['bz']+' '+Hin_Info_Table.FieldValues ['username']+' '+
      ''+Hin_Info_Table.FieldValues ['modetitle']+' 没有填写!';
      ShowMessage(hin_msg);我想将:Hin_Info_Table.FieldValues ['department']
Hin_Info_Table.FieldValues ['bz']
Hin_Info_Table.FieldValues ['username']
Hin_Info_Table.FieldValues ['modetitle']将上面四个内容,在弹出提示框中按行显示,在每个后加一个回车换行。