Синхронизация появления элементов на форме (Dephi)

[Andrey_RTF]

Имеем следующий код:

 if M[9]='1' then
  begin
    if z1=0 then
    begin
      Panel11.Visible:=True;
      sleep(550);
      z1:=1;
    end
    else
    begin
      Panel11.Visible:=False;
      sleep(550);
      z1:=0;
    end;
  end
  else
  begin
    Panel11.Visible:=False;
    z1:=0;
  end;

    if M[10]='1' then
  begin
    if z2=0 then
    begin
      Panel12.Visible:=True;
      sleep(550);
      z2:=1;
    end
    else
    begin
      Panel12.Visible:=False;
      sleep(550);
      z2:=0;
    end;
  end
  else
  begin
    Panel12.Visible:=False;
    z2:=0;
  end;

    if M[11]='1' then
  begin
    if z3=0 then
    begin
      Panel13.Visible:=True;
      sleep(550);
      z3:=1;
    end
    else
    begin
      Panel13.Visible:=False;
      sleep(550);
      z3:=0;
    end;
  end
  else
  begin
    Panel13.Visible:=False;
    z3:=0;
  end;

    if M[12]='1' then
  begin
    if z4=0 then
    begin
      Panel14.Visible:=True;
      sleep(550);
      z4:=1;
    end
    else
    begin
      Panel14.Visible:=False;
      sleep(550);
      z4:=0;
    end;
  end
  else
  begin
    Panel14.Visible:=False;
    z4:=0;
  end;

M[i] - массив поступающий из сети. Разряды массива (0-1) могут именяться в произвольное время. Соответственно, как вы видите, если разряд равен 1 то начинает мигать панель, а так как разряды могут изменяться в разное время, то моргают эпанели беспорядочно.

Вопрос - как синхронизировать моргание панелей (чтобы происходило синхронное моргание произвольных панелей.)

[s-andriano]

1. Убрать из программы все sleep кроме одного.
2. Сделать один общий цикл (в нем и будет sleep).
3. При изменениях (приход пакетов или еще что) - устанавливать флажки.
3. В цикле проверять состояние всех флажков и "мигать" в нужном темпе всеми индикаторами одновременно.

[veniside]

if z1=0 then
    begin
      Panel11.Visible:=True;
      sleep(550);
      z1:=1;
    end
    else
    begin
      Panel11.Visible:=False;
      sleep(550);
      z1:=0;
    end;

слипам отказать, стиль поменять на вменяемый:

  Panel11.Visible := (0 = z1);
  z1 := 1 - z1;

[Andrey_RTF]

Спасибо за подсказку)))

[Andrey_RTF]

А тут свои темы можно как то удалять, чтобы не засорять форум?

[Stilet]

Нет. Они ничего не засоряют. Ну по крайней мере твоя темя мусором не является и удалению не подлежит.