129 DefaultBinds[ 27]:= 'quit';

   129 DefaultBinds[ 27]:= 'quit';

   130 DefaultBinds[ 48]:= '+volup';

   130 DefaultBinds[ 48]:= '+volup';

   131 DefaultBinds[ 57]:= '+voldown';

   131 DefaultBinds[ 57]:= '+voldown';

   132 DefaultBinds[ 99]:= 'capture';

   132 DefaultBinds[ 99]:= 'capture';

   133 DefaultBinds[102]:= 'fullscr';

   133 DefaultBinds[102]:= 'fullscr';

   134 SetDefaultBinds

   135 SetDefaultBinds

   135 end;

   136 end;

   136 

   137 

   137 procedure SetBinds(var binds: TBinds);

   138 procedure SetBinds(var binds: TBinds);

   138 begin

   139 begin