need to do like this procedure TForm1 BitBtn1Click Sender TObject begi

I need to do like this:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
{
BitBtn1.OnClick := nil;
Num:=1; (like my bitbtn number)
}
clicked(Num);
end;

// my Clicked procedure
procedure Clicked(num: integer);
begin
BitBtnNum.Onclick := nil;
end;