#2 output speed up

[Richard Mustakos]

If you swap

fOutputStream : TStringStream;

for

fOuputList : TStringList;

and just add the text lines onto the stringlist, then
text output takes roughly 3% or less of the time needed
with the TStreamString. For what I'm doing, where I
write out entering and exiting every production and
before I check and then again if I found a production,
my throughput went from around 8-10 lines per second to
finishing a 2000+ line file in less than a half a
second with all output turned on. To get to all the
text quickly, just use
Memo1.Text := fOutputList.Text;
You don't have to add #13#10 to the strings, each added
one gets it's own line.
Thanks
RM