unit uEditorSituacionPedido; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uCustomView, uViewBase, uViewBarraSeleccion, StdCtrls, ExtCtrls; type TfEditorSituacionPedido = class(TForm) rdxSituacion1: TRadioButton; rdxSituacion2: TRadioButton; Bevel1: TBevel; Label5: TLabel; pnlSeleccion: TPanel; bSeleccionar: TButton; bCancelar: TButton; private { Private declarations } public { Public declarations } end; var fEditorSituacionPedido: TfEditorSituacionPedido; implementation {$R *.dfm} end.