En algunos casos* puede usarse un TStringList:
Código Delphi
[-]
var
Campos: TStringList;
begin
Campos := TStringList.Create;
try
Campos.CommaText := 'rafael,23,1982';
finally
Campos.Free;
end;
end;
* Esto funciona bien si los términos entre las comas son palabras únicas, es decir sin espacios. Si hay espacios sería necesario que los términos estuvieran encerrados entre comillas dobles.
// Saludos