delphi分割字符串

procedure TForm1.btn1Click(Sender: TObject);
var

constr,str,str1,str2,str3,str4:string;
strs :TStrings;
i:Integer;
begin
constr:='1-2-3';
strs := TStringList.Create;
strs.Delimiter := '-';
strs.DelimitedText := constr;
for i := 0 to Strs.Count-1 do
ShowMessage(Strs[i]);
end;