Kindle-Diagnostic-Tool is a project mainly written in Pascal, it's free.

This is sources of Kindle Diagnostic Tool, written in Delphi XE