3
{ Program to demonstrate the TStream.GetSize function }
11
L:='Some kind of string';
12
S:=New(PMemoryStream,Init(100,10));
13
Writeln ('Stream size before write: ',S^.GetSize);
15
Writeln ('Stream size after write : ',S^.GetSize);
b'\\ No newline at end of file'