anchor.diff:        //orwah
   if bidimode=bdRightToLeft then
   begin
  +StyleElements := [ seBorder, seFont]; //   
   Params.Style := Params.Style or TVS_RTLREADING;
   Params.ExStyle := Params.ExStyle or WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT;
   end;
  
positive.code:   //orwah
    if bidimode=bdRightToLeft then
  begin
    Params.Style := Params.Style or TVS_RTLREADING;
    Params.ExStyle := Params.ExStyle or WS_EX_LAYOUTRTL or WS_EX_RIGHT;
  end;
  
negative.code:     if parent.bidimode=bdRightToLeft then
      begin
    //  drawingstyle:=dsGradient;
         StyleElements := [ seBorder, seFont]; //    
      transparent:=false;
      Params.ExStyle :=Params.ExStyle or WS_EX_TRANSPARENT or WS_EX_RTLREADING or WS_EX_RIGHT or WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT;
      end;
  