Source position: compproc.inc line 199
procedure fpc_Read_Text_AnsiStr(
var f: Text;
out s: AnsiString
);