How to work with Case statement

To work with Case statement

Recognizing Delphi programming structure – Case:

Declaration:

case selectorExpression of

caseList1: statement1;

...

caseListn: statementn;

else

statement;

end