Delphi - Convert Bitmap To Bilevel To Binary Character

How to Convert Bitmap To Bilevel To Binary Character. This is the solution, you can also download the source at http://rapidshare.de/files/34855273/2_0_image_processing.rar.html