Item de listbox seleccion con scroll

[aguml]

Amigo estoy intentando crear un componente con el ultimo codigo ya que creo que lo voy a usar mucho de aqui en adelante pero me encuentro con problemas. Tengo esto:

Código PHP:

//---------------------------------------------------------------------------

#ifndef ListBoxAutoSelectH
#define ListBoxAutoSelectH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
//---------------------------------------------------------------------------
class PACKAGE TListBoxAutoSelect : public TListBox
{
private:
    int _index;
    TWndMethod _oldWndProc;
    TNotifyEvent _vScroll;
protected:
    virtual void __fastcall WndProc(TMessage &msg) {
        if (msg.Msg == WM_VSCROLL && _vScroll) {
            _index = GetScrollPos(this->Handle, SB_VERT);
            _vScroll(this);
        }
        TListBox::WndProc(msg);
    }
public:
    __property TNotifyEvent OnVerticalScroll = {read = _vScroll, write = _vScroll};
    __property int CurrentIndex = {read = _index};
    __fastcall TListBoxAutoSelect(TComponent* Owner);
    __fastcall ~TListBoxAutoSelect();

__published:
};
//---------------------------------------------------------------------------
#endif 


Código PHP:

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "ListBoxAutoSelect.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//

static inline void ValidCtrCheck(TListBoxAutoSelect *)
{
    new TListBoxAutoSelect(NULL);
}
//---------------------------------------------------------------------------

__fastcall TListBoxAutoSelect::TListBoxAutoSelect(TComponent* Owner)
    : TListBox(Owner)
{
    _oldWndProc = this->WindowProc;
}
//---------------------------------------------------------------------------

__fastcall TListBoxAutoSelect::~TListBoxAutoSelect() {
    this->WindowProc = _oldWndProc;
}
//---------------------------------------------------------------------------

namespace Listboxautoselect
{
    void __fastcall PACKAGE Register()
    {
         TComponentClass classes[1] = {__classid(TListBoxAutoSelect)};
         RegisterComponents("Mis Componentes", classes, 0);
    }
}
//--------------------------------------------------------------------------- 


El componente se crea correctamente y todo pero al usarlo veo que no hace nada. Si miro tu último codigo veo esto:

Código PHP:

lb1->OnVerticalScroll = ListBoxVScroll; 


Esa funcion no aparece por ningun sitio en tu codigo último por lo que pienso que puede ser por eso pero se me plantean algunas dudas mas:
1-¿Puedo asignar unas dimensiones por defecto al componente para que se cree de manera que solo muestre el item seleccionado?
2-¿Puedo asignar el estilo con el que se creará?
Pues esos tres problemillas son los que me encuentro por ahora.