propiedad boolean en vcl

[droguerman]

esto debe ser suficiente en la declaración de la clase:

 private
   FConectado : boolean;

 property conectado : boolean read FConectado write setConectado;

o si prefieres con valores por defecto

  property conectado : boolean read FConectado write setConectado default false;

y en el constructor de la clase añadir (si usas valores por defecto):

   constructor TComponente.create(aOwner : TComponent);
   begin
 	  inherited create(aOwner);
 	 FConectado := false;
   end;