Как портировать этот код на WinAPI на Delphi?

Надо портировать этот код на WinAPI который дан по ссылке, когда я сам портировал его, у меня ничего не получалось. https://delphisources.ru/pages/faq/base/bmp_add_noise.html