repeat Delay(50); key:=KeyToAction(GetKeyClicked); if key=GA_FIRE then break; until false; s:=selected; if s=0 then .... if s=1 then .... if s=2 then ....