>>322
for i:=0 to Memo1.lines.Count do Cols[i].CommaText:= Memo1.lines.Strings[i];