Проблема с Speedbutton

[waterya]

как сделать такую speedbutton что бы она на на другой форме при нажатии на нее активировала одну кнопку при следуйщем нажатии другую кнопку и так далее несколько раз .

[mihali4]

А повразумительнее?
Можно, я сформулирую?
Как я понял, задача такая - при нажатии кнопки на первой форме она должна имитировать нажатие на первую кнопку второй формы, при следующем нажатии - на вторую и так далее в цикле...
Так?

[Noor]

Я думаю waterya хотел сказать ...
При нажатии на Form1.Button1, на другой форме происходило Form2.Button1.Enabled := True;
Если да, то я думаю можно сделать так

const n = 4;//кол-кнопок на Форме2
  var  //глобальные переменые
  clc : array [1..n] of integer;
  btn : array [1..n] of TButton ;//массив кнопок
  t,i: Integer;

// -------- ну и сам код:в Unit1

procedure TForm1.Button1Click(Sender: TObject);
  begin
    Form2.Show;
    t:=t+1;
    if (t<= n) then clc[t] := 1;
    for i := 1 to n do
    begin
      if (clc[i]= 1) then btn[i].Enabled := True;
    end;
   end;
// ------------- код: в Unit2

procedure TForm2.FormCreate(Sender: TObject);
begin
  t:= 0;
  btn[1]:=Form2.Button1;
  btn[2]:=Form2.Button2;
  btn[3]:=Form2.Button3;
  btn[4]:=Form2.Button4;
end;