Saludos.
Adjunto el código fuente de un 5 en raya sencillo que hice para Delphi3.
A ver si le ganan a la computadora al primer intento...
NOTA: la anterior versión tenía un bug: si la computadora comenzaba primero no se generaba la primera movida y al momento de mostrar la jugada daba error de rango.
P.D.
Mejore el estilo del código ya que el anterior estaba un asco.