นำค่าความดันโลหิตมาแปรผลโดยใช้ Variable

[harwae]

อยากทราบวิธีทำรายงาน โดยนำค่าความดันโลหิตสูง ค่า bps , bpd จากตาราง opdscreen โดยใช้ variable ตามเงื่อนไขดังนี้ครับ
บน<130 และ ล่าง<85              ความดันโลหิตปกติ
บน=130-139 หรือ ล่าง 85-89   ความดันโลหิตสูงเล็กน้อย
บน>140 หรือ ล่าง>90              ความดันโลหิตสูง

[golf_win]

if ((DBPipeline['bps']>0) and (DBPipeline['bps']<130) and (DBPipeline['bpd']>0) and (DBPipeline['bpd']<85)) then
begin
   Value:='ความดันโลหิตปกติ';
end
else
   if (((DBPipeline['bps']>0) and (DBPipeline['bps']>=130) and (DBPipeline['bps']<140))
   or ((DBPipeline['bpd']>0) and (DBPipeline['bpd']>=85) and (DBPipeline['bps']<90))) then
   begin
      Value:='ความดันโลหิตสูงเล็กน้อย';
   end
   else
      if (((DBPipeline['bps']>0) and (DBPipeline['bps']>=140))
      or ((DBPipeline['bpd']>0) and (DBPipeline['bpd']>=90))) then
      begin
         Value:='ความดันโลหิตสูง';
      end;
   end;
end;

[harwae]

ขอบคุณครับ