Hello guys.

Hello guys.
Does anyone know how to do in Delphi 10.1 Berlin this evaluation method with stars like the one in the image below? Do you know any website or code that teaches you step by step?