Don't know any tool, but it should take about 10-20 minutes to make one yourself with Delphi.