copy中文乱码问题！

有一个变量值来自数据库,要提取一部分的值，如遇到中文时提取的值有可能会出现乱码（原因是中文被提取了半个字符），请问如何解决？var
s:String;
begin
.
.
.
s:=FieldByName('Unit').AsString;
假如数据库的值为'test中文测试test'即
s:='test中文测试test';
Edit1.Text:=copy(s,6,Length(s));
那么提取的值为乱码 .
end;