case delphi

case key of
    VK_Escape : close;
    VK_F2 : BtF2.Click;
    VK_F3 : BtF3.Click;
    VK_F4 : BTF4.click;
end;