Если Form2.CheckBox5.Checked=true
у тебя программа будет виснуть.
Код:
procedure TForm1.Button1Click(Sender: TObject);
label
Guess;
begin
acc.LoadFromFile('\FireString\acc.txt')
Guess:
for i:=0 to acc.Count - 1 do
begin
Memo1.Lines.Add('');
if Form2.CheckBox2.Checked then
begin
...................................
end;
end;
acc.Free;
if Form2.CheckBox5.Checked then
begin
Application.Restore;
Timer1.Enabled:=true;
Timer1.Interval:=10000;
Goto Guess;
end;
Application.Restore;
end;
Смотрим.
1. если Form2.CheckBox5.Checked=true
то
Timer1.Enabled:=true;
Timer1.Interval:=10000;
Что это нам даст? Неопнятно. Типа включим таймер, и?)
2.далее попадаем в цикл
for i:=0 to acc.Count - 1 do
в нем
3. if Form2.CheckBox2.Checked
если чекед выполняем действия с акками.
А если нет, то пустой цикл)))
4. Снова к п1.
Заметь таймер тут ни на что не влияет.
Выходит безконечный цикл.
Вывод: так не делают.
В онтаймер напиши код и задай интервал таймеру соответствующий.
Вот:
PHP код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if checkbox5.Checked then
begin
showmessage('Мего авторизация 130 акков)');
end;
end;