[roman]

En algunos casos* puede usarse un TStringList:

Código Delphi [-]
var
  Campos: TStringList;

begin
  Campos := TStringList.Create;

  try
    Campos.CommaText := 'rafael,23,1982';

    {
       Ahora campos lista loe términos individuales:
         Campos[0] = 'rafael';
         Campos[1] = '23';
         Campos[2] = '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