Text Capture SDK is a pure Delphi package of a Text Hooking DLL and a Word Capture Sample Program, Text Hooking DLL captures the text contents of any Windows and Controls by Hooking the TextOut /ExtTextOut /DrawText APIs, WordCapture program captures the text around the current mouse cursor by invoke the Text Hooking DLL, This package was entire written in Delphi, Full version includes All Delphi Source Codes of TextHook DLL and WordCapture...
http://www.bluechillies.com/list/text-capture.html