Lazarus如何进行编码转换？如 enc-kr 转为 utf8 ？

goomoo

Lazarus如何进行编码转换？如 enc-kr 转为 utf8 ？

比如这个网页的源码，是韩文 enc-kr 编码的，如何转换成 utf 编码 ，使其可以正常显示在Memo控件中？

http://www.knn.co.kr/

代码：

uses
    FPHTTPClient;

procedure TForm1.btnReadURLClick(Sender: TObject);
var
  http:TFPHttpClient;
  body:String;
begin
  http:=TFPHttpClient.Create(nil);
  try
     body:=http.Get('http://www.knn.co.kr/');
     //body:=SysToUTF8(body);  //<--------------------------------此处如何把韩文编码转换成 utf8 编码？
     self.Memo1.Text:=body;

  finally
    http.Free;
  end;

end;

goomoo

已经自己解决了。