>>818
delete(t,length(t)-1,1);
は t:='123' とすると結果は '13'が残るように思います

#0を消すには
S:=PChar(S);
T:=PChar(T);
L:=S+T;
としてみて下さい。