237 

   237 

   238 SetDefaultBinds();

   238 SetDefaultBinds();

   239 end;

   239 end;

   240 

   240 

   241 procedure SetBinds(var binds: TBinds);

   241 procedure SetBinds(var binds: TBinds);

   242 begin

   246 begin

   243 {$IFDEF MOBILE}

   247 {$IFDEF MOBILE}

   244     binds:= binds; // avoid hint

   248     binds:= binds; // avoid hint

   245     CurrentBinds:= DefaultBinds;

   249     CurrentBinds:= DefaultBinds;

   246 {$ELSE}

   250 {$ELSE}

   247     CurrentBinds:= binds;

   255     CurrentBinds:= binds;

   248 {$ENDIF}

   256 {$ENDIF}

   249 end;

   257 end;

   250 

   258 

   251 procedure SetDefaultBinds;

   259 procedure SetDefaultBinds;