procedure TForm22.bt1Click(Sender: TObject);
var
  s: string;
begin
  s := Edit1.Text;     //你好。ABC123

  edit2.Text := Utf8Encode(s);    //你好。ABC123

end;