Divizion by zero - при старте программы

[trigger]

Программа
Графика
Построение определенного количества квадратов разного цвета
При запуске ругается Divizion by zero -но программу запускает
ругается на строку
mas:= round(cx div k);
Все перепроверил - не должен ругаться

Спасибо заранее за любой совет

unit tank;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, Spin;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    PaintBox1: TPaintBox;
    SpinEdit_Count: TSpinEdit;
    SpinEdit_Razmer: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;


    procedure PaintBox1Paint(Sender: TObject);
    procedure SpinEdit_CountChange(Sender: TObject);
    procedure SpinEdit_RazmerChange(Sender: TObject);
  private
    
    procedure resize;
    procedure kvadrat;
  public
    { Public declarations }
  end;

var
  Form1: TForm1; v,kolVistrel,begining :Integer;
  cx, cy, xb, yb, Xe,Ye,X,Y,X1,Y1,dlina : integer;
implementation

{$R *.dfm}

procedure TForm1.resize;
 var dlina : integer;
begin
  dlina:=strToint(SpinEdit_Razmer.text);
  PaintBox1.Width:=dlina;
  PaintBox1.Height:= dlina;
  PaintBox1.Left:=(Form1.Width-PaintBox1.Width)div 2 ;
  PaintBox1.Top:=(Form1.Height-PaintBox1.Height)div 2 ;
  with PaintBox1 do
   begin
      Xe:=Height;
      Ye:=Width;
    end;
   Xb:=0;
   Yb:=0;
   cx:=round(Xe div 2);
   cy:=round(Ye div 2);
end;

procedure TForm1.kvadrat;
var mas,k,i : integer;
begin
k:=strToInt(SpinEdit_Count.Text);
x:=0;
with PaintBox1 do
   begin
        canvas.Pen.Color:=RGB(Random (255),Random (255),Random (255));
        canvas.Brush.Color:=RGB(Random (255),Random (255),Random (255));
        canvas.Rectangle(rect(Xb,Yb,Xe,Ye));
        mas:= round(cx div k);
        for i:=1 to k-1 do
            begin
                 x:=x + mas;
                 x1:=xe-x; //y1:=ye-y;
                 canvas.Pen.Color:=RGB(Random (255),Random (255),Random (255));
                 canvas.Brush.Color:=RGB(Random (255),Random (255),Random (255));
                 canvas.Rectangle(x,x,x1,x1);
            end;
   end;
  // Canvas.Pen.Mode := pmNotXor;
end;

//--------------------------------------

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
//PaintBox1.Canvas.FillRect(ClientRect);
//resize;
 kvadrat;
end;

procedure TForm1.SpinEdit_CountChange(Sender: TObject);
var znachRazm:integer;
begin
 znachRazm:= strToInt(SpinEdit_Count.Text);
 if (znachRazm >= 1)and (znachRazm <= 10)
     then begin kvadrat;resize end
     else
          begin
              if znachRazm < 1 then  SpinEdit_Count.Text:='1';
              if znachRazm >10 then  SpinEdit_Count.Text:='10';
          end;

end;

procedure TForm1.SpinEdit_RazmerChange(Sender: TObject);
var znachRazm:integer;
begin
 znachRazm:= strToInt(SpinEdit_Razmer.Text);
 if (znachRazm >= 50)and (znachRazm <= 500)
     then  resize
     else
          begin
              if znachRazm < 50 then  SpinEdit_Razmer.Text:='50';
              if znachRazm >500 then  SpinEdit_Razmer.Text:='500';
          end;
end;

end.

[JTG]

Ну дык,

k:=strToInt(SpinEdit_Count.Text);
round(cx div k);

SpinEdit_Count.Text при старте = 0

              if znachRazm < 1 then  SpinEdit_Count.Text:='1';
              if znachRazm >10 then  SpinEdit_Count.Text:='10';

              if znachRazm < 50 then  SpinEdit_Razmer.Text:='50';
              if znachRazm >500 then  SpinEdit_Razmer.Text:='500';

не нужно, для этого у TSpinEdit есть свойства MinValue/MaxValue