program colsel; uses forms; begin fl_initialize(@argc, argv, 'FormDemo', nil, 0); fl_show_colormap(0); end.