جدا کردن متن در یک مقدار استرینگ

[Gladiator]

با سلام

این سوال خیلی پایه ایه ٬ چطوری میتونم توی یک متغییر استرینگ ٬ متن متغییر رو چک کنم و هر جا که مثلا یدونه - ( Dash ) بود کارکترهای قبل از اون رو توی یک متغییر و کارکترهای بعد از اون رو توی یک متغییر دیگه ذخیره کنم ؟

متشکرم .

[SyntaxCheck]

بعد از دش

My2ndString := copy(MyString,Pos('-',MyString)+1,length(MyString));

قبل از دش

My2ndString := copy(MyString,1,Pos('-',MyString)-1);

[Gladiator]

جناب سینتکس چک بسیار بسیار متشکرم .