var MyStringList5....

begin
    for i := 1 to MyStringGrid.RowCount - 1 do
    begin
      if MyStringGrid.Cells[5, i] <> '' then begin
        MyStringList5.Add(MyStringGrid.Cells[5, i]);
      end;
    end;
....

var MyStringList5, MyStringList6, MyStringList7, MyStringList8, MyStringList9....

begin
    for i := 1 to MyStringGrid.RowCount - 1 do
    begin
      if MyStringGrid.Cells[5, i] <> '' then begin
        MyStringList5.Add(MyStringGrid.Cells[5, i]);
      end;

      if MyStringGrid.Cells[6, i] <> '' then begin
        MyStringList6.Add(MyStringGrid.Cells[6, i]);
      end;

      if MyStringGrid.Cells[7, i] <> '' then begin
        MyStringList7.Add(MyStringGrid.Cells[7, i]);
      end;

      if MyStringGrid.Cells[8, i] <> '' then begin
        MyStringList8Add(MyStringGrid.Cells[8, i]);
      end;

      if MyStringGrid.Cells[9, i] <> '' then begin
        MyStringList9.Add(MyStringGrid.Cells[9, i]);
      end;
    end;