Internet Direct (Indy) Version 9.0.2 Beta
Example 1

    iPos := AStream.Position;
    AStream.Position := 0;

    while (AStream.Position < AStream.Size) do
    begin
      SData := TIdStream(AStream).ReadLn;
      AForm.DataMemo.Lines.Add(SData);
    end;

    AStream.Position := iPos;