unit advierte;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  StdCtrls, Buttons, ExtCtrls;

type
  TFormaAdvertencia = class(TForm)
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    Panel2: TPanel;
    Shape1: TShape;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormaAdvertencia: TFormaAdvertencia;

implementation

{$R *.DFM}

procedure TFormaAdvertencia.BitBtn1Click(Sender: TObject);
begin
FormaAdvertencia.Tag:=1;
Close;
end;

procedure TFormaAdvertencia.BitBtn2Click(Sender: TObject);
begin
FormaAdvertencia.Tag:=0;
close;
end;


procedure TFormaAdvertencia.Panel2Click(Sender: TObject);
begin
Close;
end;

procedure TFormaAdvertencia.Panel1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(FormaAdvertencia.Handle, WM_SYSCOMMAND, $F012, 0);
end;

procedure TFormaAdvertencia.Label3MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(FormaAdvertencia.Handle, WM_SYSCOMMAND, $F012, 0);
end;

end.