Delphi UTF-8 php MySQL - Problem ä ö ü

[p80286]

Ist ein wenig gebastelt aber es funktioniert:

Delphi-Quellcode:

type
  ta = array [1..1024] of byte;

var
  pa: ^ta;
  i : integer;
  s : utf8string;
begin
  s:=ansitoutf8(edit1.Text);
  pa:=addr(s[1]);
  edit2.Text:='';
  if length(s)<512 then
  for i:=1 to length(s)*2 do
  edit2.Text:=edit2.Text+inttohex(pa^[i],2)+' ';
end;

0üöä9 ist:
30 C3 BC C3 B6 C3 A4 39 00 ......

Gruß
K-H