Here are some SDL demos running on an iPhone...

Example 1 :
<object width="425" height="344"><param name="movie" value="http://www.youtube.com/v/th3__8ozNz0&hl=en&fs=1"></param><param name="allowFullScreen" value="true"></param><embed src="http://www.youtube.com/v/th3__8ozNz0&hl=en&fs=1" type="application/x-shockwave-flash" allowfullscreen="true" width="425" height="344"></embed></object>

Example 2 :
<object width="425" height="344"><param name="movie" value="http://www.youtube.com/v/nsaTHM0R2Dw&hl=en&fs=1"></param><param name="allowFullScreen" value="true"></param><embed src="http://www.youtube.com/v/nsaTHM0R2Dw&hl=en&fs=1" type="application/x-shockwave-flash" allowfullscreen="true" width="425" height="344"></embed></object>

Example 3 :
<object width="425" height="344"><param name="movie" value="http://www.youtube.com/v/jmT7dhfRjjU&hl=en&fs=1"></param><param name="allowFullScreen" value="true"></param><embed src="http://www.youtube.com/v/jmT7dhfRjjU&hl=en&fs=1" type="application/x-shockwave-flash" allowfullscreen="true" width="425" height="344"></embed></object>

The downside is that it is done using SDL 1.3, which is still in Alpha, last time I looked and I'm not aware of a FreePascal port for iPhones yet. Still very impressive though.