How to limit for loop to print only first few records in list?

Question

How should I print the first 5 record from list using for loop in Delphi. Below are the sample I created:

p := [\'a\',\'b\',\'c\',\'d\',\'e\',\'f\',\'g\',\'h\