Вызов процедуры

[Kashp]

Всем привет.
Значит есть две формы. В первой форме прописывается процедура:

uses
  ............

type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
    procedure vibor_voprosa;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.vibor_voprosa;
begin
 .......// код процедуры
 .......//
 .......//
end;

Далее эта процедура вызывается нажатием кнопки:

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

Так вот, подскажите пожалуйста, как эту процедуру вызвать по нажатию кнопки из второй формы?

[mihali4]

procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.vibor_voprosa;
end;
И больше никаких лишних телодвижений делать не нужно...

[Nemesisking]

Form1.Button1Click помоему

[_Dmitry]

Перемести заголовок процедуры из private в public, во втором модуле поставь ссылку на первый uses Unit1; и вызывай...

[Kashp]

Всё понял. Всем большое спасибо!