При нажатии кнопки с потоком выдает ошибку

[Liserk]

Здравствуйте, в общем такая проблема. На картинке часть интерфейса на котором хочу, чтобы при нажатии на кнопку radiobutton (авто), radiobutton РП1, РП2... начали показывать, что идёт сигнал (т.е. сначала в РП1 появляется точка, потом исчезает и появляется в РП2 и т.д.). Я решил воспользоваться потоками, потому что программа зависала. Вот код

 //Описывается класс, для использования потока
   TPotok = class(TThread)
     private
   protected
     procedure Execute; override;
   end;

var
  Form1: TForm1;
  Potok: TPotok;

implementation
uses Unit2, Unit3;

{$R *.dfm}

//Нужно создать процедуру Execute, уже описанную в классе TPotok
procedure TPotok.Execute;
var
rp1: TRadioButton;         rp2: TRadioButton;
    rp3: TRadioButton;         rp4: TRadioButton;
    rp5: TRadioButton;         rp6: TRadioButton;
    rp7: TRadioButton;         rp8: TRadioButton;
begin
rp1.Checked:=true;
begin
 if rp1.Checked=true then
 begin
 rp2.Checked:=true;
 Application.ProcessMessages;
 sleep(3000);
 rp1.Checked:=false;
 end;
   if rp2.Checked=true then
   begin
   rp3.Checked:=true;
   Application.ProcessMessages;
   sleep(3000);
   rp2.Checked:=false;
   end;
    if rp3.Checked=true then
    begin
    rp4.Checked:=true;
    Application.ProcessMessages;
    sleep(3000);
    rp3.Checked:=false;
    end;
      if rp4.Checked=true then
      begin
      rp5.Checked:=true;
      rp4.Checked:=false;
      Application.ProcessMessages;
      sleep(3000);
      end;
        if rp5.Checked=true then
        begin
        rp6.Checked:=true;
        rp5.Checked:=false;
        Application.ProcessMessages;
        sleep(3000);
        end;
          if rp6.Checked=true then
          begin
          rp7.Checked:=true;
          rp6.Checked:=false;
          Application.ProcessMessages;
          sleep(3000);
          end;
            if rp7.Checked=true then
            begin
            rp8.Checked:=true;
            rp7.Checked:=false;
            Application.ProcessMessages;
            sleep(3000);
            end;
              if rp8.Checked=true then
              begin
              rp1.Checked:=true;
              rp8.Checked:=false;
              Application.ProcessMessages;
              sleep(3000);
         end;
end;
end;

procedure TForm1.avtoClick(Sender: TObject);
var
  Potok: TPotok;
begin
//Вначале нужно создать экземпляр потока:
   Potok:=TPotok.Create(true);
//Параметр False запускает поток сразу после создания, True - запуск
впоследствии , методом Resume
//Можно указать что после завершения кода поток завершится автоматически:
   Potok.FreeOnTerminate:=true;
//Далее можно указать параметры потока, например приоритет:
   Potok.Priority:=tpNormal;
 Potok.Resume;
end;

При нажатии на кнопку Авто программа выдает ошибку. Когда пробовал пошагово проверить, то оказалось, что программа зависает после выполнения кода - Potok.Resume; end;
Подскажите, пожалуйста, как разрешить эту проблему? (Если это важно то у меня Delphi 2010, ОС - Windows 7(x64))

[Slym]

таймер рулит

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i:integer;
  radio:array of TRadioButton;
begin
  for i:=0 to Form1.ControlCount-1 do
  begin
    if Controls[i] is TRadioButton then
    begin
      SetLength(radio,Length(radio)+1);
      radio[Length(radio)-1]:=TRadioButton(Controls[i]);
    end;
  end;
  for i:=low(radio) to high(radio) do
  begin
    if radio[i].Checked then
    begin
      radio[i].Checked:=false;
      if i=high(radio) then
        radio[low(radio)].Checked:=true
      else
        radio[i+1].Checked:=true;
      exit;
    end;
  end;
  if Length(radio)>0 then
    radio[low(radio)].Checked:=true;
end;

[Liserk]

Насчет оптимизации с кнопками radiobutton большое спасибо, а вот как быть с потоком, почему ошибку выдает?

[Аватар]

а вот как быть с потоком, почему ошибку выдает?

Потому, что о синхронизации не имеете понятия

[Liserk]

Про синхронизацию читал на сайтах 3-4, но в итоге понял мало, единственно думаю подставить в procedure TPotok.Execute; сточку - Synchronize(Timer1Timer). Как думаете так правильно будет?

[Slym]

правильно - следовать советам знающих
бутылку из под шампанского можно в задницу засунуть - доказано, но вот результат плачевен... тебе оно надо?

[Liserk]

Просто дело в том, что пока программа будет работать в автоматическом режиме(т.е. будет показывать как сигналы переходят), мне нужно чтобы и остальная часть программы работала. Т.е. нажал работу в автоматическом режиме, сигналы пошли, и пока сигналы идут, рассчитать там например введёные значения. (У меня половина программы пойдёт за основу для дипломника, поэтому мне больше, чем бутылка шампанского нужна будет)

[Liserk]

Тему можно закрывать, уже понял в чем фишка таймера (я немного тугодум), код правда осталось поменять чуток и считай дипломник уже близко. Спасибо за помощь!