p;            Label4.Caption:=inttostr(strtoint(Label4.Caption)+3);            
              ftRCorner :
                        Label4.Caption:=inttostr(strtoint(Label4.Caption)+3);
              ftLZigzag :
                        Label4.Caption:=inttostr(strtoint(Label4.Caption)+3);
              ftRZigzag :
                        Label4.Caption:=inttostr(strtoint(Label4.Caption)+3);
              ftStick   :
                        Label4.Caption:=inttostr(strtoint(Label4.Caption)+1);
              ftBox     :
                        Label4.Caption:=inttostr(strtoint(Label4.Caption)+1);
            end;

           
      GenerateNewFigure;
    end;   
end;