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;