TRTFEditDialog

type TRTFEditDialog = class(TForm)

  btnCA: TSpeedButton;

  btnJA: TSpeedButton;

  btnLA: TSpeedButton;

  btnRA: TSpeedButton;

  btnLoad: TButton;

  btnClear: TButton;

  btnOk: TButton;

  btnCancel: TButton;

  btnSave: TButton;

  ColorDialog1: TColorDialog;

  FontDialog1: TFontDialog;

  RtfOpenDialog: TOpenDialog;

  RichMemo1: TRichMemo;

  btnBold: TSpeedButton;

  btnItalic: TSpeedButton;

  btnUnderline: TSpeedButton;

  btnFont: TSpeedButton;

  btnColor: TSpeedButton;

  RtfSaveDialog: TSaveDialog;

  procedure btnCAClick();

  procedure btnClearClick();

  procedure btnItalicClick();

  procedure btnJAClick();

  procedure btnLAClick();

  procedure btnLoadClick();

  procedure btnRAClick();

  procedure btnSaveClick();

  procedure btnBoldClick();

  procedure btnUnderlineClick();

  procedure btnFontClick();

  procedure btnColorClick();

  procedure RichMemo1Change();

end;

TRTFEditDialog

TObject