He needs a parsing "GET" function, one that ignores spaces as it builds a captured string until a comma is hit and
thus remembers where it was the last time for the next read of the string.
For example
Var
X:Integer;
S:Sting;
Begin
X ;= 0; first initial setting for the line.
S:= GET(X);
While S <> '' Do begin
begin
// do something with S;
S := GET(X); // the Get function will auto increment for the next location.
End;
The GET function may also consider accepting spaces for the content if there was a quote started.
I am sure with all the powers to be here, someone can hack out a function like that..