[Помогите!] SpinEdit

[Anzorias]

Сделал авторегер(Автоматическая регистрация аккаунта).
И теперь нужно сделать подсчет зарегистрированных аккаунтов аккаунтов.
Как сделать после выполнения таймера, Value SpinEdit'a прибавлялось +1.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Button1.Perform(WM_LBUTTONDOWN, 0, 0);
 Button1.Perform(WM_LBUTTONUP, 0, 0);
 Button2.Perform(WM_LBUTTONDOWN, 0, 0);
 Button2.Perform(WM_LBUTTONUP, 0, 0);
 Button3.Perform(WM_LBUTTONDOWN, 0, 0);
 Button3.Perform(WM_LBUTTONUP, 0, 0);
 Button6.Perform(WM_LBUTTONDOWN, 0, 0);
 Button6.Perform(WM_LBUTTONUP, 0, 0);
end;

Вот например, когда выполнятся все действия таймера, то Value SpinEdit'а стало "1". После еще одного выполнения Value стало "2" и т.д

Или же например при нажатии на кнопку Button6, SpinEdit1.Value прибавлялось +1, еще одно нажатия, то еще +1...

[Dinmaite]

Цитата: Сообщение от Anzorias procedure TForm1.Timer1Timer(Sender: TObject); begin Button1.Perform(WM_LBUTTONDOWN, 0, 0); Button1.Perform(WM_LBUTTONUP, 0, 0); Button2.Perform(WM_LBUTTONDOWN, 0, 0); Button2.Perform(WM_LBUTTONUP, 0, 0); Button3.Perform(WM_LBUTTONDOWN, 0, 0); Button3.Perform(WM_LBUTTONUP, 0, 0); Button6.Perform(WM_LBUTTONDOWN, 0, 0); Button6.Perform(WM_LBUTTONUP, 0, 0); end;

Что это?

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Button1.click(nil);
 Button2.click(nil);
 Button3.click(nil);
 Button6.click(nil);
 SpinEdit1.Value:=SpinEdit1.Value+1;
end;

Хотя даже в таком варианте процедура остается для меня загадкой.

[Anzorias]

Цитата: Сообщение от Dinmaite Что это? procedure TForm1.Timer1Timer(Sender: TObject); begin Button1.click(nil); Button2.click(nil); Button3.click(nil); Button6.click(nil); SpinEdit1.Value:=SpinEdit1.Value+1; end; Хотя даже в таком варианте процедура остается для меня загадкой.

Спасибо. Работает.

Добавлено через 2 минуты

Цитата: Сообщение от Dinmaite Хотя даже в таком варианте процедура остается для меня загадкой.

Подсчет зарегистрированных аккаунтов.

[Mebius]

Цитата: Сообщение от Anzorias Спасибо. Работает. Добавлено через 2 минуты Подсчет зарегистрированных аккаунтов.

i=0;
if (i>-1) then
i++
else
exit

отменили?

[Anzorias]

Уже сделал. Вот пока что получилось.