A verbal expression implementation in Delphi