вывод информации

Помогите, кто может как вывести информауию опроцесоре на форму ListBox

p.s. имеется такой код:
AnsiString ProcessorName="Unknown";
TRegistry *reg = new TRegistry;
try
{
reg->RootKey = HKEY_LOCAL_MACHINE;
reg->OpenKey("Hardware\Description\System\CentralProcessor\0", false);
ProcessorName=reg->ReadString("ProcessorNameString");
Label11->Caption=reg->ReadString("ProcessorNameString");
}
__finally
{
delete reg;
}
ListBox4->Items->Add("Процессор: "+ ProcessorName);


выводит только "Процессоор: " и все