Multiline bug, wrong error

program multiline;
{$mode delphi}
begin
writeln(
'''
  hello
'''
);
writeln(1
end.  
`

Error message is
multiline.lpr(10,1) Error: Unterminated multi-line string starting at line 5, column 1.
but actually there is missing bracket.