{$IFDEF FPC}{$MODE DELPHI}{$ENDIF}{$IFOPT D+} {$DEFINE DEBUG} {$ENDIF}{$ASSERTIONS ON}program WrapTextBug;{$IFNDEF FPC}{$APPTYPE CONSOLE}{$ENDIF}uses SysUtils;var before, after : string;begin // Set up a long string before := 'This is quite a long string, at least 50 chars long'; // Split it into multiple lines, each 10 characters long after := WrapText(before, 10); // Show the before and after strings Writeln(before); Writeln(''); Writeln(after);end.