Valamelyik Delphi tudja ezt, vagy csak a FP vágja?

Mondjuk egy laza editboxba beírva egy megfelelő helyre

var s:string;

begin

case s of

'Push': Showmessage('Hello World!');

...Mert a D7-ben nagyon nem működik, de ha dobna rá valaki egy gyors függvényt, vagy eljárást, azt is megköszönném, mert vhogy csak végső esetben szeretnék D7-ről későbbi verzióra váltani! :)