[MAXIUM]

en mis tiempos de Turbo Pascal usaba un keypressed con un
While, lo que resultaba que al presionar una tecla o una determinada tecla (ESC) finalizaba la instrucción.

Alternativas sencillas: usar un readkey o un comando SHELL (pause) al final.

Código Delphi [-]
if Cerrar = False then

Cerra es un boleano entonces:

Código Delphi [-]
if not Cerrar then