请帮忙转DELPHI代码为bcb

Question

type
  ReadThread = class(TThread)
  public
    m_Frm : TForm;
    MyInfo : ^ModemInfoStruct;
    MyRead : ^ModemDataStruct;
    constructor Create(frm:TForm;CreateSuspended:Boolean);reintroduce;
    destructor Destroy(); override;
  protected
    procedure Execute(); override;  private
    procedure RefreshMainForm();
end;

Answer 1

那位大侠帮忙指点下啊，请帮忙转成BCB的好吗？
我是这么尝试着写的
class ReadThread:TThread
    {
        public:
            TForm m_Frm;
            ModemInfoStruct *MyInfo;
            ModemDataStruct *MyRead ;
            constructor Create(TForm frm,bool CreateSuspended);
            destructor Destroy();
        protected:
            procedure Execute();
        private:
            procedure RefreshMainForm();
    }好多报错啊

Answer 2

class ReadThread :TThread
{
  public  :
       TForm *m_Frm;
       ModemInfoStruct *MyInfo  ;
       ModemDataStruct *MyRead  ;
       ReadThread(TForm *frm,bool CreateSuspended);
       virtual void Destroy();
   protected:
        void __fastcall Execute();
  private  :
       void  __fastcall RefreshMainForm();
}
;