Как нажать кнопку, нажатием другой?

 procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2.Click;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if SpeedButton1.Down=True then
  begin
  SpeedButton1.Visible:=False;
  SpeedButton2.Visible:=True;
  SpeedButton2.Down:=false;
  end;
end;
 
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if SpeedButton2.Down=True then
  begin
  SpeedButton2.Visible:=False;
  SpeedButton1.Visible:=True;
  SpeedButton1.Down:=false;
  st:='';
  Word.Caption:='';
  end;
end;

procedure TForm1.BitBtn35Click(Sender: TObject);
var i:integer;
begin
if Word.Caption <> '' then
  begin
  if num mod 2 = 1 then
    begin
      Memo1.Lines.Add(Word.Caption);
      Word.Caption:='';
      Player_num.Caption:='Õîä Èãðîêà 2';
      num:=num+1;
      q:=q+1;
      begin
        For i:=1 to length(Memo1.Lines[q]) do
          count1:=count1+1;
        end;
        Label2.Caption:=IntToStr(count1);
        SpeedButton2.Click;
    end else
    begin
      Memo2.Lines.Add(Word.Caption);
      Word.Caption:='';
      Player_num.Caption:='Õîä Èãðîêà 1';
      num:=num+1;
      w:=w+1;
        begin
        For i:=1 to length(Memo2.Lines[w]) do
          count2:=count2+1;
        end;
        Label3.Caption:=IntToStr(count2);
        SpeedButton2.Click;
    end;
  end;
end;