в кнопке старт:
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
timer1.Interval:=10;
{И все! тут больше ничего не нужно!!!!!!}
end;
в таймере:
PHP код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Form2.CheckBox5.Checked = true then
begin
{acc:= TStringList.Create();
if accfile = false then
.........................
мего-код авторизации)
.........................
.........................
Memo1.Lines.Strings[i]:=Memo1.Lines.Strings[i]+', '+(stream.DataString);
stream.Clear;
end;
acc.Free; }
timer1.Interval:=нужный интервал;
end;
end;
И кстати 30000 это не 30минут
Вот мне интересно, где так кодить то учат? В каком ВУЗе Укр?