procedure TForm1.Button1Click(Sender: TObject);
var
PKey: PChar;
S: string;
begin
S := '你好';
Memo1.Clear;
PKey := StrAlloc(SizeOf(Char) * length(S));
StrPCopy(PKey, S);
Memo1.Lines.AddObject('str', TObject(PKey));
Memo1.Lines.Add(Memo1.Lines[0] + '+' + PChar(Memo1.Lines.Objects[0])); 不成功。
end;