Hola.
No sé si entendí el problema, pero si quisiera dejar el espacio para cuando el scroll vertical aparezca, haría:
Código PHP:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
int maxLen= 0;
for(int i = 0; i < ListBox1->Items->Count; i++)
if (ListBox1->Items->Strings[i].Length() > maxLen)
maxLen = ListBox1->Items->Strings[i].Length();
ListBox1->ClientWidth = maxLen * ListBox1->Canvas->TextWidth(maxLen) +
GetSystemMetrics(SM_CXVSCROLL);
}
Saludos