También en el lenguaje Delphi de Borland podría darse el siguiente caso.