Alguna funcion como la Strtok

[[seoane]]

¿y por que no usar un simple TStringList?

Código Delphi [-]
  with TStringList.Create do
  try
    QuoteChar := '"';
    Delimiter := #32;
    DelimitedText:= Str; // Str es la cadena de exto
    // Ahora tienes separado el texto en lineas
    Var1:= Strings[0];
    Var2:= Strings[1];
    Var3:= Strings[2];
  finally
    Free;
  end;
end;

Por cierto, no encuentro la clase TParser ¿en que unit esta?