TGetStrProc
TGetStrProc
=
procedure
(
const
S
:
string
)