Como Interromper um execu��o

Question

Por favor gostaria de saber se tem como interromper uma opera��o
em execu��o vou citar um exemplo em um formulario que criei tem um
bot�o Ok no

Beppe · Answer

Coloque uma vari�vel Termina: Boolean no private do form.

No bot�o de cancelar:

Termina := True;

No loop:

Termina := False;
...
while not Termina and not DataSet1.EOF do
begin
  ...
  Application.ProcessMessages;
end;