 shown
below. Note that you should free stream only after calling
Viewer.OpenStream(nil), otherwise control will try to read deallocated
memory on scrolling!

<p>
<center>
<textarea cols="60" rows="10" readonly="readonly">
//Viewer: TATBinHex field
//MS: TMemoryStream field

procedure TFormView.LoadAnsiString(const S: string);
begin
  if not Assigned(MS) then
    MS := TMemoryStream.Create;

  MS.SetSize(Length(S));
  if S &lt;&gt; '' then
  begin
    MS.Position := 0;
    MS.WriteBuffer(S[1], Length(S));
 