Delphi 字串切割

我所使用的環境是Delphi 7

以下是字串切割的程式碼：

var str_data: string;a: TStringList;
str_data := '0001 王小明'; //假如這是我的資料，0001是職員編號

a := TStringList.Create;
a.Delimiter := ' '; // 指定分割字元
a.DelimitedText := str_data; // 要被分割的字串


然後只要抓取a[0]就可以取得0001