델파이에 php의 split 같은 함수 없나요

php에서  $str = '서울-관악구-봉천-11동-000-000호'
$Str_R = split("-", $str, 3);

다음과 같이 들어 가거든요(배열형으로)... 비슷한 함수 없나요...
----다음----
서울
관악구
봉천-11동-000-000호
------------------

제가 아래같이 만들었는데... 함수가 있으면 좋을것 같아서요..
------------ 아래 --------------
var
  Form1: TForm1;
  Str   : String;

implementation

{$R *.DFM}

{
문자열에 ' '이 있는 것을 기준으로 분리한다
}
procedure TForm1.Button1Click(Sender: TObject);
var
  Strlen  : integer;
  split_posi  : integer;
  Str_temp  :String;
begin
  Str := Edit1.Text;

  Strlen := length(Str);
  split_posi := pos(' ',Str);
  Str_temp := copy(Str,1,split_posi - 1);
  Edit2.Text := Str_temp;
  Str := copy(Str,split_posi + 1, Strlen - (split_posi));

  Strlen := length(Str);
  split_posi := pos(' ', Str);
  Str_temp := copy(Str,1,split_posi - 1);
  Edit3.Text := Str_temp;
  Str := copy(Str,split_posi + 1, Strlen - (split_posi));

  Strlen := length(Str);
  split_posi := pos(' ', Str);
  Str_temp := copy(Str,1,split_posi - 1);
  Edit4.Text := Str_temp;
  Str := copy(Str,split_posi + 1, Strlen - (split_posi));

  Edit7.Text := Str;


end;
------------------------------------------

고수님 부탁해요....