var s: string; us: UTF8String; ws: WideString; begin s:='HELL-o!'; ws:=s; us:=utf8encode(ws); ShowMessage(us); ws:=utf8decode(us); ShowMessage(ws); end;