bin zwar schon etwas eingerostet mit BCB aber versuchs mal so:

1)
in eine Header Datei ein
#define MeineSuperVariableDieZweite = 5000

die header datei in deine formulare einbinden und das sollte laufen

2)
Normalerweise kannst du bei Listboxen das so machen
ListBox->Items->Add('neues item');

ListBox->Items ist vom Typ TStrings und enthaelt alle items die angezeigt werden.