lb:={$ifdef darwin}#10;{$else}#10#13;{$endif}
readln(fn,li);
.....
if li:=[START_HINT] then
begin
readln(fn,li); // read first line of hint
hin:=li;
readln(fn,li);
while upcase(li)<>'[END_HINT]' DO
begin
hin:=hin+lb+li;
readln(fn,li);
end;
sethintctrl.hint:=hin;
end;