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;