need to do like this procedure TForm1 BitBtn1Click Sender TObject begi

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
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;