unit u_sendmail_msg; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,inifiles, ExtCtrls, bsSkinCtrls; type Tfrm_sendmail_msg = class(TForm) Panel3: TPanel; Button1: TButton; Button2: TButton; bsSkinGroupBox1: TbsSkinGroupBox; Memo2: TMemo; bsSkinGroupBox2: TbsSkinGroupBox; bsSkinGroupBox3: TbsSkinGroupBox; Memo4: TMemo; memo1: TMemo; private { Private declarations } public { Public declarations } end; var frm_sendmail_msg: Tfrm_sendmail_msg; implementation uses u_data_share, u_main; {$R *.dfm} end.