急 delphi中怎么从后往前取字符串 求大侠们帮忙

急 delphi中如何从后往前取字符串 求大侠们帮忙
比如 123;M456;123456
  12;L456;123456

中如何取到第一個";"后的四位數。在線等。。。。。。

------解决方案--------------------
要定位的话先 pos
不要定位的话 直接 copy(源,第几位开始,长度)