Do you write the data into the Memo, or read it in from a file? Your data looks like a Comma Separated Value (CSV) format file.
If your reading it in, a very simple way to extract the data is use a READLN(fInFile,Var1,Var2,Var3,Var4.....varN);
This will require you to know the types of each...