procedure TForm1.Button1Enter(Sender: TObject);
begin
Form1.Canvas.Pen.Width:=4;
Form1.Canvas.Pen.Color:=clBlack;
Form1.Canvas.Rectangle(Button1.Left-2,Button1.Top-2,Button1.Left+Button1.Width+2,Button1.Top+2+Button1.hEIGHT);
end;
procedure TForm1.Button1Exit(Sender: TObject);
begin
Form1.Canvas.Pen.Width:=4;
Form1.Canvas.Pen.Color:=Form1.Color;
Form1.Canvas.Rectangle(Button1.Left-2,Button1.Top-2,Button1.Left+Button1.Width+2,Button1.Top+2+Button1.hEIGHT);
end;
