#pas
//Delphi
//===============
procedure TForm1.FormCreate(Sender: TObject);
begin
 ListBox1.Items.Add('Вася');
 ListBox1.Items.Add('Петя');
 ListBox1.Items.Add('Коля');
 ListBox1.Items.Add('Оля');
end;

#cpp
//------------------------------
//C++
//===========
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 ListBox1->Items->Add("Вася");
 ListBox1->Items->Add("Петя");
 ListBox1->Items->Add("Коля");
 ListBox1->Items->Add("Оля");
}