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

[joooje]

سلام
من یک متن دارم که با یک کاراکتر خاص که میخوام خودم مشخصش بکنم به بخشهای مختلف تقسیم میشه
مثلا:
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;