Unicode umwandeln

[Peter666]

Sorry das ich mich jetzt nochmal melde, aber ich bin schlichtweg nicht weitergekommen.
Anbei ist mal ein Beispieltext der ungefiltert über den Ticker kommt. Wie gesagt ich habe nichts vergleichbares im Netz gefunden was mir hilft. Lediglich ein Code zum konvertieren von Big5 Text ins GBK Format:

function Big52GB(ABig5String: string): string;
{ BIG5 to GBK : BIG5 ==> Unicode ==> GBK }
var
mWString: array[0..1024] of WideChar;
cchWideChar: Integer;
mLongBool: LongBool;
begin
Result := ABig5String;
mLongBool := True;
cchWideChar := MultiByteToWideChar(950, 0, PChar(ABig5String), length(ABig5String), @mWString, 0);
MultiByteToWideChar(950, 0, PChar(ABig5String), length(ABig5String), @mWString, cchWideChar);
WideCharToMultiByte(936, 0, @mWString, cchWideChar, PChar(Result), length(Result), '?', @mLongBool);
end;

Wenn hier jemand ne Idee hat wie man die ASCII strings richtig anzeigen kann, wäre ich froh..

Peter