delphi (if else case of )

Version imprimable