DHCP server in Delphi/Kylix/BCB

Is there any demo and/or component for building a DHCP server in
BCB/Delphi/Kylix?

miemc...@yahoo.com