//  Загрузка массива индексов из потока
// =============================================================================
procedure TDictionaryFinder.LoadFromStream(const Stream: pStream);
var
 S: pStrList;
 I: Integer;
begin
 S :=NewStrList;
 try
   Stream.Position := 0;
   S.LoadFromStream(Stream); //???  // .LoadFromStream( MapStrm, FALSE );
   FDictLength := S.Count;
   if FDictLength = 0 then Exit;
   SetLength(FDict, FDictLength);
   for I := 0 to FDictLength - 1 do
     FDict[I] := S.Items[I];
 finally
   S.Free;
 end;
end;

S.Text := StrReplace(Value, ' ', #13#10, [rfReplaceAll]);

Stream.Write(TmpS.Text[1], Length(TmpS.Text));???

S.LoadFromStream(Stream, False);

var Str: string;
...
Str := Value;
while StrReplace(Str, ' ', #13#10) do;
S.Text := Str;

Stream.Write(Pointer(TmpS.Text[1])^, Length(TmpS.Text));