TGetStrProc = procedure(const S: string)