Some code when I am learning Delphi.