TIdMessage:Fehler bei Bereichsprüfung

[Angel4585]

habs jetzt geschafft ohne neuerstellen zu debuggen, der Fehler wird in folgender Zeile ausgelöst:

Delphi-Quellcode:

procedure TIdMessage.SaveToStream(AStream: TStream;
 const AHeadersOnly: Boolean = False);
var
  LMsgClient: TIdMessageClient;
  LIOHS: TIdIOHandlerStream;
begin
  LMsgClient := TIdMessageClient.Create(nil);
  try
    LIOHS := TIdIOHandlerStream.Create(nil);
    try
      LIOHS.FreeStreams := False;//<-- Hier kommt der Fehler
      LIOHS.OutputStream := AStream; 
      LMsgClient.IOHandler := LIOHS;
      LMsgClient.OpenWriteBuffer(32768);