如何拆分带汉字的字符串

[fbiboss]

比如 1你2好,怎么拆分成 1 你 2 好,四个子字符串?

[bdmh]

用widestring

[fbiboss]

具体怎么做啊?实在太菜了不会啊

[lqfcu2]

procedure TForm1.FormCreate(Sender: TObject);
var
  str, str1: WideString;
begin
  str := '1你2好';
  ShowMessage(MidStr(str, 1,1));
end;