请教各位大神，如何delphi字符串中除分隔符外字符串提取

我要在一个字符串中逐个提取除分割外的子字符串，例如21.25*20*0.98*3.2*1.5这个字符串，我要分别提取除*外的21.25，20，0.98，3.2，1.5，请各位大神帮忙写以下代码，谢谢！