[Drongo]

Я попробовал так, введя счётчик для столбцов, в вашем случае n равна строке и само собой что пустая строка отсчитывается

Код:

//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
   int count = 0;
   for(int i = 0; i < ListBox1->Items->Count; i++){
      if(ListBox1->Selected[i])
        StringGrid1->Cells[0][count++] = ListBox1->Items->Strings[i];
     }
}
//---------------------------------------------------------------------------