VB转DELPHI不习惯请教一个小问题，过程怎么调用？

Question

过程1
procedure TForm1.bitcanClick(Sender: TObject);
begin
  bitadd.Enabled :=true;
  bitedit.Enabled :=true;
  bitdel.Enabled :=true;
  bitadd.Caption :='新增(&A)';
  bitedit.Caption :='修改(&E)';
end;
过程2
procedure TForm1.bitaddClick(Sender: TObject);
begin
  if bitadd.Caption ='新增(&A)' then
    begin
      editb.Text :='';
      edimoney.Text :='';
      edimoneycode.Text :='';
      bitedit.Enabled :=false;
      bitdel.Enabled :=false;
      bitadd.Caption :='保存(&S)';
    end;
  if bitadd.Caption ='保存(&S)' then
     在这里调用过程1怎么写?
end;还有请问begin和end到底是怎么用的？老是用不好。是什么情况下要使用？多谢！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('1');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Button1.Click;
end;

Answer 2

在bitaddClick中调用：
bitcanClick(Sender);
相当于把procedure TForm1.bitaddClick(Sender: TObject);
本身的参数Sender传给了bitcanClick过程。
具体说来就是，当bitadd点击时，Sender指的是bitadd这个按钮，但在这个过程中调用
bitcanClick(Sender);就是把bitAdd按钮当作参数传给了bitcanClick过程。假如你在bitcanClick过程中加入
ShowMessage(TButton(Sender).name);将会显示'bitAdd'

Answer 3

执行多条语句需要用到啊。比如
if i = 1 then 
  showmessage('buyong');//可以用可以不用。if i = 1 then 
begin                  //必须用
  showmessage('yong');
  showmessage('yong');
end;

Answer 4

都很精典，多谢!实不相瞒我今天是第一次用delphi,让大家见笑了:)