[-Marshall-]

Вот что получилось, но данный код работает, если выделять с первого элемента, а требуется произвольное выделение в ListBox'e

Код:

void TModules::task1_get(void)
{
	if (Form1->StringGrid1->Visible != true)
	{
		Form1->StringGrid1->Visible = true;
		Form1->StringGrid1->ColCount = 2;
		Form1->StringGrid1->RowCount = Form5->ListBox1->SelCount;
		Form1->StringGrid1->DefaultColWidth = 377;
		for (int n = 0; n < Form5->ListBox1->Items->Count; n++)
		{
			if (Form5->ListBox1->Selected[n])
			{
				Form1->StringGrid1->Cells[0][n] = Form5->ListBox1->Items->Strings[n];
			}
		}
		Form5->Close();
		row_count();
	}
}