how to complete a for Loop using Delphi

Published --