Four-in-a-row (FlashPascal program)

[SilverWarior]

any way to increase the difficulty?=)

On Delphi About there is an interesting article about adding Artifical Intelligence to games. Article shows how to make "self learning AI" in Nepali game named "GATTA TIPNE KHEL" (meaning pebble picking game).
http://delphi.about.com/od/gameprogr...gamesample.htm
It would be posiible to implement similar approach into "Four in a row" game which would make game harder and harder the more you play, making it almost unbetable at the end.