请问如何取出这些值 ( 积分: 50 )

我在面板上的edit中为示这样内容;31.5×20×40.5 我想将其中的31.5,20,40.5取出来分别放一个单独的edit中,即edit1显31.5,edit2显示20,edit3显示40.5,请问该怎样实现,谢谢

var
s:String;
st:TStringList;
begin
s:='31.5×20×40.5';
st:=TStringList.create;
st.Delimiter:='×';
st.DelimitedText:=s;
edit1.text:=st.strings[0];
edit2.text:=st.strings[1];
FreeAndNil(st);
end;

谢谢siking, st.Delimiter:='×'这一行提示出错,不被别识的类型Char and String,换作*就可以.在delphi不能识别数学中的×吗