[roamer]

Код:

type
  TForm1 = class(TForm)
    ...
  public
    procedure MyProc1(Sender: TObject);
    procedure MyProc2(Sender: TObject);
  end;
...
implementation
...
procedure TForm1.MyProc1(Sender: TObject);
begin
  ShowMessage('ItsMe: MyProc1');
  btn1.OnClick:=MyProc2;
end;

procedure TForm1.MyProc2(Sender: TObject);
begin
  ShowMessage('ItsMe: MyProc2');
  btn1.OnClick:=MyProc1;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMessage('Its btn1Click');
  btn1.OnClick:=MyProc1;
end;
...

Или я не правильно понял ?