"atrapar" la ejecución de un procedimiento

[alapaco]

Si estas dentro de un ciclo (while, for, repeat) podes crear una variable global (FCancel) en valor False y en el boton Cancelar de tu formulario agregas:

if Application.MessageBox('¿ Realmente desea cancelar el proceso ?', 'Advertencia', MB_YESNO) = idYes then
FCancel := True;

Y dentro del ciclo pones algo así como:

while (<< lo que estabas preguntando >>) and (not FCancel) do
bla...bla...