Print BUG

I have the need to do a little printing. I have a small bug when i print the items on the left side of the page and the right side of the page are not centered left and centered right. procedure [login to view URL](Sender: TObject); var X, Y: integer; temp: string; begin [login to view URL]; X := Max([login to view URL], [login to view URL]); for Y := 0 to X - 1 do begin if (Y < [login to view URL]) and (Y < [login to view URL]) then temp := temp + [login to view URL][Y] + ' | ' + [login to view URL][Y] +chr(13) + chr(10) else if Y < [login to view URL] then temp := temp + [login to view URL][Y] + chr(13) + chr(10) else if Y < [login to view URL] then temp := temp + [login to view URL][Y] + chr(13) + chr(10); end; [login to view URL](temp); [login to view URL]('My Print'); end; I am looking for some help with this small bug .Thank you all. ## Deliverables 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Installation package that will install the software (in ready-to-run condition) on the platform(s) specified in this bid request. 3) Complete ownership and distribution copyrights to all work purchased. ## Platform windows