353 end;

   353 end;

   354 

   354 

   355 procedure SetBinds(var binds: TBinds);

   355 procedure SetBinds(var binds: TBinds);

   356 begin

   356 begin

   357 {$IFDEF IPHONEOS}

   357 {$IFDEF IPHONEOS}

   358     CurrentBinds:= DefaultBinds;

   359     CurrentBinds:= DefaultBinds;

   359 {$ELSE}

   360 {$ELSE}

   360     CurrentBinds:= binds;

   361     CurrentBinds:= binds;

   361 {$ENDIF}

   362 {$ENDIF}

   362 end;

   363 end;