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;
__________________
Saludos desde la tierra del tequila y las mujeres hermosas
|