つまり procedure TGikoScr.GetSym; で if str='AND' then begin sym:='&';str:='';end else if str='OR' then begin sym:='|';str:='';end else if str='NOT' then begin sym:='!';str:='';end else if str='XOR' then begin sym:='^';str:='';end else if str='ひく' then begin sym:='-';str:='';end ; <---- みたいに追加