StrUtils
这个包里面包含一些字符串相关的函数：
字符串相加
var S1, S2: String; begin S1 := Concat(‘A‘, ‘B‘); // 连接两个字符串，S1变量等于AB。 S2 := Concat(‘Borland‘, ‘ Delphi‘, ‘ 7.0‘); // 连接三个字符，S2变量等于Borland Delphi 7.0。 end;
去掉最后一个字符：
var s : string; begin s := ‘123‘;
caption := copy(s, 1, Length(s)-1); //,去掉最后一个字符，此时caption的值是12
end;
原文：http://www.cnblogs.com/feiyunaima/p/6268735.html