Thanks for that,
I'm having a bit of trouble with your code though, could you see if you find what i'm doing wrong.
sCurrLine := Memo1.Lines.Strings[a]; // current line to play with
nComma := PosEx(',',sCurrLine,1);
Column1 := copy(Memo1.Lines.Strings[a], 1, nComma - 1); // first string...