Umlautproblem mit InternetOpenUrl

[waldforest]

Hallo,
ich habe ein Problem mit Umlauten und anliegender Funktion.

Delphi-Quellcode:

function LoadURL(URL: String): String;
var
  IOpen, IURL: HINTERNET;
  Read: Cardinal;
  Msg: string;  // <==
begin
 Result := '';
  try
    IOpen := InternetOpen(
               'Mozilla 3.0 (compatible)',
               INTERNET_OPEN_TYPE_PRECONFIG, '', '',
               INTERNET_FLAG_NEED_FILE
             );
    if IOpen <> nil then
    try
       IURL := InternetOpenUrl(IOpen, PAnsiChar(URL), nil, 0,
                INTERNET_FLAG_NO_UI, 0);
      if IURL <> nil then
      try
        SetLength(Msg, 4096);  // <====
        repeat
           if InternetReadFile(IURL, @Msg[1], 4096, Read) then  // <===
            Result := Result + Copy(Msg, 1, Read) // <===
          else
            Break;
        until Read = 0;
      finally
        InternetCloseHandle(IURL); 
      end; 
    finally
      InternetCloseHandle(IOpen);
    end;
  except
  end;
end;

Die URL, welche als Parameter auch Umlaute enthalten kann, wird eine PHP-Datei aufgerufen

<?php


if(isset($_GET['user']))
$user =TRIM($_GET['user']);
echo $user;
?>

In meinem PHP-File erscheint dieser Parameter dann ohne Umlaute.

z.B. ich übergebe als Parameter Gläser, in meinem PHP-File kommt als Parameter Glser an.

Ich denke dies ist ein Codierthema, habe aber keine Idee, wie ich dies in den Griff bekomme
Jemand eine Idee ??