TIdMessage.LoadFromStreamについて教えてください。

procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TMemoryStream;
begin

Stream := TMemoryStream.Create;
IdMessage1.LoadFromFile(正しいフォーマットのファイル);
IdMessage1.SaveToFile(ちゃんとロードできたか?);

IdMessage1.SaveToStream(Stream);

IdMessage1.LoadFromStream(Stream);
IdMessage1.SaveToFile(ストリームからのロード);

Stream.Free;
end;

上記のコードで、「ちゃんとロードできたか?」のファイルはちゃんと出力されるのですが、
「ストリームからのロード」ファイルはDateヘッダと本文が空のメッセージが出力されます。
なぜでしょうか? いろいろいじくり回して一番簡単なテストコードを組んでみたつもりですが、
これから先に進めません。
環境はDelphi7+Indy9.0.18です。Delphi2005Trialでも試してみましたが同じようでした。