unit observa;

interface

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

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

var
  FormaObservaciones: TFormaObservaciones;

implementation

{$R *.DFM}


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

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

procedure TFormaObservaciones.BitBtn2Click(Sender: TObject);
begin
Tag:=0;
Close;
end;

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

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

end.