[hecjona]

Declaras una variable miembro de la forma
puede ser en el private.

bCancelado : Boolean;

La inicializas en el oncreate de la forma
bCancelado := False;

Dentro de tu procedimiento....

While bCancelado = false do
begin
........Instrucciones
Application.processmessages;
end;



dentro del evento onclick de un boton (con caption "Cancelar")
bCancelado := true;

la instruccion Application.processmessages es la clave;