unit seldalidas; interface uses SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, QDialogs, QStdCtrls, QExtCtrls; type Tselecsalida = class(TForm) Image1: TImage; private { Private declarations } public { Public declarations } end; var selecsalida: Tselecsalida; implementation {$R *.xfm} end.