unit uCerrarCaja; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, StdCtrls, ExtCtrls; type TfrCerrarCaja = class(TForm) Label3: TLabel; eFechaCierre: TcxDateEdit; pnlSeleccion: TPanel; bAceptar: TButton; bCancelar: TButton; Label2: TLabel; Label1: TLabel; private { Private declarations } public { Public declarations } end; var frCerrarCaja: TfrCerrarCaja; implementation {$R *.dfm} end.