из Stringgrid в stringlist c разделителем

[brownb]

Test1|Test1|Test1| - Первая строка
Test2|Test2|Test2| - Вторая строка
....
Подскажите как перенести в из Stringgrid в stringlist c разделителем

[brownb]

Разобрался сам
var
i : integer;

for i:= 1 to StringGrid2.RowCount - 1 do
Memo1.Lines.Add(StringGrid2.Cells[0,i]+'|'+ StringGrid2.Cells[1,i]+'|'+StringGrid2.Cells[2,i]);

[brownb]

Может кто подскажет
теперь все это перенести в одну строчку?

[Shouldercannon]

Так?
Test1|Test1|Test1|Test2|Test2|Test2 |

Если да, то

var
  I: Integer;
  s: String;
begin
  for I := 1 to StringGrid2.RowCount - 1 do s := s + StringGrid2.Cells[0, I] + '|' + StringGrid2.Cells[1, I] + '|' + StringGrid2.Cells[2, I];
  Memo1.Lines.Add(s);
end;

Цикл специально начинается с 1?