Coder

procedure TForm5.FormCreate(Sender: TObject);
var i:integer;
begin
  //Add the characters
 ComboBox1.Items.BeginUpdate;
 for i := 0 to StringGrid2.RowCount-1 do
  begin
     ComboBox1.Items.Add(StringGrid2.Cells[0,i]);
  end;
 ComboBox1.Items.EndUpdate;

 //Add the karts
 ComboBox2.Items.BeginUpdate;
 for i := 0 to 15 do
  begin
   ComboBox2.Items.Add(StringGrid1.Cells[1,i]);
  end;
 for i := 47 to StringGrid1.RowCount-1 do
  begin
   ComboBox2.Items.Add(StringGrid1.Cells[1,i]);
  end;
 ComboBox2.Items.EndUpdate;

 //Add the tires
 ComboBox3.Items.BeginUpdate;
 for i := 16 to 34 do
  begin
   ComboBox3.Items.Add(StringGrid1.Cells[1,i]);
  end;
 ComboBox3.Items.EndUpdate;

  //Add the glider
 ComboBox4.Items.BeginUpdate;
 for i := 35 to 46 do
  begin
   ComboBox4.Items.Add(StringGrid1.Cells[1,i]);
  end;
 ComboBox4.Items.EndUpdate;

end;