字符串的有关问题

字符串的问题
为什么strsql:=LeftStr(Pchar(strsql),StrLen(Pchar(strsql))-4)   去不掉strsql的   最后4个字符?

[解决办法]
var
Str : string;
begin
Str := 'ABCDEFG ';
Str := Copy(Str, 1, Length(Str)-4);
Showmessage(Str);
end;