在Unit1有一个>Unit1procedure TForm1.Button1Click(Sender: TObject)事件，在Unit2里怎样调用？附

在Unit1有一个>Unit1procedure TForm1.Button1Click(Sender: TObject)事件，在Unit2里怎样调用？附错误代码，请指教。(50分)<br />在Unit1有一个>Unit1procedure TForm1.Button1Click(Sender: TObject)事件，在Unit2里
怎样调用？附错误代码，请指教。

Unit1

private
Fframe: TFrame;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);//这个unit没问题。看unit2.
begin
if Fframe <> nil then
Fframe.Free;
Fframe := TFrame2.Create(abcFrame2);
Fframe.Align := alNone;
Fframe.Top:=36;
Fframe.Width:=348;
Fframe.Left:=137;
Fframe.Height:=294;
Fframe.Parent := Form1;

unit2
implementation
uses unit1;
{$R *.dfm}
procedure TFrame1.XP_Button1Click(Sender: TObject);
var
pwdfile:textfile;
pwdstr:string;
times:integer;
begin
if checkbox1.Checked=true then
assignfile(pwdfile,'管理员.cfg')
else
assignfile(pwdfile,'学生.cfg');
reset(pwdfile);
readln(pwdfile,pwdstr);
closefile(pwdfile);
times:=times+1;
if edit1.Text=pwdstr then
//以上都没错。
TForm1.Button1Click(Sender);//就在这里错了。括号里的参数，在书看到有时是self,
有时是sender,有时是其它的，不知各代表什么意思？

Form1.Button1Click(Sender);

改为：Form1.Button1Click(Sender);

接受答案了.