title: Cannot see UTF8-characters in Delphi 2010 Memo
body: <p>I read an UTF8-File, made with Winword, into a Tmemo, using the code below (tried all 2 methods). The file contains IPA pronunciation characters. For these characters, I see only squares. I tried different versions of tmemo.font.charset, but it did not help.</p>
  
  <p>What can I do?</p>
  
  <p>Peter</p>
  
  <pre><code>// OD is an TOpenDialog
  
  procedure TForm1.Load1Click(Sender: TObject);
  
  {
  var fileH: textFile;
      newLine: RawByteString;
  
  begin
     if od.execute (self.Handle) then begin
        assignFile(fileH,od.filename);
        reset(fileH);
        while not eof(fileH) do begin
          readln(fileH,newLine);
          Memo1.lines.Add(UTF8toString(newLine));
        end;
        closeFile(fileH);
     end;
  end;
  }
  
  
  var
    FileStream: tFileStream;
    Preamble: TBytes;
    memStream: TMemoryStream;
  begin
    if od.Execute then
    begin
      FileStream := TFileStream.Create(od.FileName,fmOpenRead or fmShareDenyWrite);
      MemStream := TMemoryStream.Create;
  
      Preamble := TEncoding.UTF8.GetPreamble;
      memStream.Write(Preamble[0],length(Preamble));
      memStream.CopyFrom(FileStream,FileStream.Size);
      memStream.Seek(0,soFromBeginning);
  
      memo1.Lines.LoadFromStream(memStream);
  
      showmessage(SysErrorMessage(GetLastError));
  
      FileStream.Free;
      memStream.Free;
    end;
  end;
  </code></pre>