长字符串的分割(50分)

一个长的字符串，中间用×号分隔成几段，怎么样把这几段分成几个短的字符串

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
sL:TStrings;
begin
s:='AAAAAA×BBBBBB×CCCCCC×dddddd';
s:=stringReplace(s,'×',',',[rfReplaceAll]);
sL:=TStringList.Create ;
sL.CommaText:=s;
showmessage(sL.Text );
sL.Free ;
end;

用copy函数