unit uUsuario; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ActnList; type TfUsuario = class(TForm) Button1: TButton; Button2: TButton; TabControl1: TPageControl; pagUsuario: TTabSheet; GroupBox1: TGroupBox; Label4: TLabel; Label5: TLabel; edtUser: TEdit; edtPassword: TEdit; GroupBox2: TGroupBox; Label1: TLabel; cbPerfil: TComboBox; ActionList: TActionList; actAceptar: TAction; actCancelar: TAction; private { Private declarations } public { Public declarations } end; var fUsuario: TfUsuario; implementation {$R *.dfm} end.