[NightSoldier]

У мну ошибка!!
Программа запускается, но выдаётся ошибка.
Вот код:

Код:

procedure Pages(Actions,NmPage: String);
var
  IndexPage: Integer;
  TW: TCanvas;
begin
  with MainForm do begin
    if Actions='Next' then begin
      SetLength(Btns,Length(Btns)+1);
      IndexPage:=Length(Btns)-1;
      Btns[IndexPage]:=TBitBtn.Create(MenuBtns);
      with Btns[IndexPage] do begin
        Parent:=MenuBtns;
        Caption:=NmPage;
        TW:=TCanvas.Create;
        Width:=TW.TextWidth(NmPage);
        Visible:=true;
        TW.Free;
      end;
    end;
    MenuBtns.Repaint;
  end;
end;