Access Properties of any item

procedure TWPTBXForm.CharModeClick(Sender: TObject);
begin
  if WPRichText1.SelectedObject <> nil then
    case (Sender as TComponent).Tag of
      1: WPRichText1.SelectedObject.PositionMode := wpotChar;
      2:
        begin
          WPRichText1.SelectedObject.Wrap := wpwrAutomatic;
          WPRichText1.SelectedObject.PositionMode := wpotPar;
        end;
      3:
        begin
          WPRichText1.SelectedObject.Wrap := wpwrBoth;
          WPRichText1.SelectedObject.PositionMode := wpotPar;
        end;
      4:
        begin
          WPRichText1.SelectedObject.Wrap := wpwrNone;
          WPRichText1.SelectedObject.PositionMode := wpotPage;
        end;
      5:
        begin
          WPRichText1.SelectedObject.Wrap := wpwrBoth;
          WPRichText1.SelectedObject.PositionMode := wpotPage;
        end;
      6: // Image under Text !
        begin
          if wpobjObjectUnderText in WPRichText1.SelectedObject.Mode then
            WPRichText1.SelectedObject.Mode := WPRichText1.SelectedObject.Mode - [wpobjObjectUnderText]
          else
            WPRichText1.SelectedObject.Mode := WPRichText1.SelectedObject.Mode +
              [wpobjObjectUnderText];
          WPRichText1.ReformatAll(false, true);
        end;
      7: // SaveIMG
        begin
          if (WPRichText1.SelectedObject.ObjRef <> nil) then
          begin
            SaveDialogImg.Filter :=
              WPRichText1.SelectedObject.ObjRef.FileExtension + ' Files|*.'
              + WPRichText1.SelectedObject.ObjRef.FileExtension;
            if SaveDialogImg.Execute then
            begin
              WPRichText1.SelectedObject.ObjRef.SaveToFile(SaveDialogImg.FileName);
            end;
          end;
        end;
       8: // Rotate Left
       begin
        {$IFDEF WP6}
          WPRichText1.SelectedObject.ObjRef.Rotation :=
             WPRichText1.SelectedObject.ObjRef.Rotation + 90;
        {$ENDIF}
        end;


    end;
end;