procedure menu();
begin
    case click of
        preferences  : preferences();
        about   : about();
        contact : contact();
    end;
end;