unit testform; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,bitmapactionbutton, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; a: TBitmapActionButton; b: TBitmapActionButton; procedure Button1Click(Sender: TObject); procedure bMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; btn : tbitmapactionbutton; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var x,y : integer; begin a.left:=random(width); a.top:=random(height); b.left:=random(width); a.top:=random(height); if random(2)=1 then a.Visible:=false else a.visible:=true; if random(2)=1 then b.Visible:=false else b.visible:=true; end; procedure TForm1.bMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin beep; end; end.