Загрузить файл utf8!

[SkAndrew]

Доброе утро!

Так я могу сохранить текстовый файл (список из нескольких строк например) как utf8 (используются визуальные компоненты поддерживаемые юникод ElPack, но это не принципиально):

procedure TMainForm.Button1Click(Sender: TObject);
 var
   Temp : Utf8String;
  Stream : TMemoryStream;
begin
   Temp := Utf8Encode(ElComboBox1.Items.Text); // <-- строка, записываемая в файл
   Stream := TMemoryStream.Create;
  try
      Stream.Write(Pointer(Temp)^, Length(Temp));
      Stream.SaveToFile('utf8.txt');
  finally
      Stream.Free;
  end;
end;

Эта процедура работает отлично!

Вопрос:

Как корректно прочитать этот файл, то есть загрузить его?
Так код не работает, из потока читается абракадабра:

procedure TMainForm.Button2Click(Sender: TObject);
      var i : Integer;
          Stream : TMemoryStream;
          Buffer : array[0..MAX_PATH-1] of WideChar;
begin
  Stream := TMemoryStream.Create;
  try
      if FileExists('utf8.txt') then
      begin
        Stream.LoadFromFile('utf8.txt');
        SetLength(Buffer, Stream.Size);
        FillChar(Buffer, SizeOf(Buffer), 0); 
        Stream.Read(Buffer[1], Stream.Size);
        ElComboBox1.Items.Add(??????????);
        .. код не работает!
      end;
  finally
      Stream.Free;
  end;
end;

Как изменить процедуру во второй кнопке, чтобы корректно загружать данные из потока в визуальный компонент поддериваемый юникод.

Спасибо

[SkAndrew]

Может быть все же кто-нибудь может подсказать путь решения проблемы? Спасибо всем.

[SkAndrew]

Мастера-программисты, помогите с вопросом. может хоть подсказка в какую область? Спасибо всем.

[Hottabych]

procedure TMainForm.Button2Click(Sender: TObject);
          Stream : TMemoryStream;
          Buffer : Utf8String;
begin
  Stream := TMemoryStream.Create;
  try
      if FileExists('utf8.txt') then
      begin
        Stream.LoadFromFile('utf8.txt');
        SetLength(Buffer, Stream.Size);
        Stream.Read(Buffer[0], Stream.Size);
        ElComboBox1.Items.Text := Utf8Decode(buffer);
      end;
  finally
      Stream.Free;
  end;
end;

Попробуй так...

[SkAndrew]

Спасибо, проблема решена.