carlos_lue, seria de mucha ayuda para todos los del foro que nos dijeras exactamente que error es el que te aparece.
A simple vista, me refiero al revisar el codigo que pusiste, efectivamente tiene un error, y este es muuuuuuy sencillo. Te falta cerrar el parentesis del ShowMessage.
Tu tienes:
ShowMessage(IntToStr(I);
y deberia ser asi:
ShowMessage(IntToStr(I));
No se si esto sea la respuesta que esperabas.
Saludos y espero te sea de ayuda. En caso contrario replantea tu pregunta.