تکه کردن یک متن از نقاط مشخص

سلام
من یک متن دارم که با یک کاراکتر خاص که میخوام خودم مشخصش بکنم به بخشهای مختلف تقسیم میشه
مثلا:
ali-mohammad-reza-ehsan
من میخوام با یک کداسامی ما بین - رو بدست بیارم
من قبلا تو دلفی از این کد استفاده میکردم
ولی الان توی پرسیم به خط if t1[i]='-' then ایراد میگیره
کجای کد من ایراد داره و چطور میتونم تو پرسیم این کار رو بکنم؟
پیشاپیش ممنون بابت راهنماییتون

 

Var 



t1:string;

t2:array[1..50] of string;

i,j:Integer;

begin

t1:='ali-mohammad-reza-ehsan';

j:=1;

for i:=1 to Length(t1) do

begin

if t1[i]='-' then

begin

j:=j+1;

end

else

t2[j]:=t2[j]+t1[i];

showMessage(t2[1]);

showMessage(t2[2]);

showMessage(t2[3]);

showMessage(t2[4]);

end;

بهتره که بجای کد بالا از کد زیر استفاده کنید:

class method ConsoleApp.Main(args: array of string);

begin

  var s: String := 'ali-mohammad-reza-ehsan';

  var words: array of String := s.Split('-');

  for each word: String in words do begin

    Console.WriteLine(word);

  end;

  Console.Read;

end;

ممنون بابت پاسخ سریعتون جناب عشایری
فقط الان چطوری میتونم از این کد استفاده کنم
یعنی کجا بزارمش
چون هرجا گذاشتم ایراد گرفت
و اینکه چطوری استفاده کنم ازش
یعنی الان تکه اول رو چطور بدست بیارم؟
بازم ممنون