unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Click();virtual;  //此处Click()过程如果没有括号,好像也行,请问有什么区别
    //procedure Click;virtual;
  protected  end;var
  Form1: TForm1;implementation
uses Unit2;
{$R *.dfm}procedure TForm1.Click;
var
  a:string;
begin
  a := Form2.edt1.Text;
  ShowMessage(a);
end;procedure TForm1.btn1Click(Sender: TObject);
begin
  Self.Click;
end;end.