... , no guarantees are given. Please make backups, or better yet use a source control system. My red. From which I assumed that its purpose was to convert code written in Lazarus for use in Delphi. Also that it was 10 years old and likely to be out-of-date for modern versions of Lazarus. Also "make readable" is a joke for me, because having now tried it on a couple of files it does the exact opposite. Look at this for example then begin if p2.x= def_req then p2.X := rings[ring_list_index, 0]; if p2.y= def_req then p2.y := rings[ring_list_index, 1]; end else begin if p2.x= def_req then p2.X := screenx/ 2; // arbitrary.. if p2.y= def_req then p2.y := screeny/ 2; end; Unnecessary line-wrapping, thens and elses all mixed up, no idea which else goes with which then, and assignment operators lined up with conditional operators to cause maximum chances of misreading. Compare with my ...