SpinEdit автовыбор значения

[DoubleѢ]

Уважаемые программисты и участники форума!
Возникла вот такая ситуация, я клепаю HTML редактор, на форме кнопка, и сам спин эдит. Мне нужно что бы в спинэдите при последующем нажатии на кнопку генерировалось значение на 1 больше, чем предыдущее, т.е. если в пинэдите ноль а кнопка нажата один раз, то при последующем нажатии значение было 1. Это необходимо для генерации текста в поле редактора.
Kод Delphi

procedure TF1.B1Click(Sender: TObject);
begin
SynEdit1.SelText:= '<a id="ep' + (SE1.Text) + '"' + 'onclick="vidLoc('+ '''''' + ',' + ''''''+(SE2.Text)+''''''+','+''''''+(SE3.Text)+''''''+ ','+ ''''''+(SE4.Text)+''''''+')"'+'class='+''''''+'ep='+(E1.Text)+'''''' +'></a><br><br>' + '';
end;