UTF-8-Konvertierung Memo

[strom]

hallo, möchte gerne, dass alle Umlaute richtig im Memo angezeigt werden!

Delphi-Quellcode:

 var
  MSG: String;
    i: integer;
begin
 Memo1.Clear;
  MSG := Socket.ReceiveText;
   Memo1.Text := (MSG)TEncoding.UTF8; // was muss ich hier ändern, dass die Umlaute richtig Angezeigt werden?
   Memo2.Text := Memo1.Lines[8];
   Memo2.Text := StringReplace(Memo2.Text,'<message>','',[rfReplaceAll]);
   Memo2.Text := StringReplace(Memo2.Text,'</message>','',[rfReplaceAll]);
   Memo2.Text := StringReplace(Memo2.Text,'<message />','',[rfReplaceAll]);
   StringGrid1.RowCount := StringGrid1.RowCount + 1;
  for i := StringGrid1.RowCount - 1 downto StringGrid1.FixedRows + 1 do
   StringGrid1.Rows [i].Assign (StringGrid1.Rows [i - 1]);
   StringGrid1.Rows [StringGrid1.FixedRows].Clear;
   StringGrid1.Cells [1,1]  := FormatDateTime ('dd.mm.yyyy', Now);
   StringGrid1.Cells [2,1]  := FormatDateTime ('hh:nn:ss', Now);