Delphi : Identical expressions