Call a procedure in a procedure

Delphi

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Button3Click(nil);

end;