var
  AH7100_F: TAH7100_F;

  pclb_ch: array [0..09] of TCheckListBox;

implementation

{$R *.DFM}

procedure TAH7100_F.FormCreate(Sender: TObject);
begin
   PageControl1.ActivePage := Tabsheet1;
   Start01BitBtnClick(Self);
end;

procedure TAH7100_F.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caFree;
end;

procedure TAH7100_F.PageControl1Change(Sender: TObject);
begin
  if PageControl1.ActivePage = Tabsheet1  then
     Start01BitBtnClick(Self)
  else if PageControl1.ActivePage = TabSheet2  then
     Start02BitBtnClick(Self)
end
쏘스 설명좀해주세요 완전 초짜입니다