Fórum Ajuda para criar tela #352868

// Se a janela que vc disse já está criada, coloque no public da janela que está no loop

...

Public
  Cancelou : Boolean;
...

procedure Form1.ExucutaClick(Sender: TObject);
begin
  Cancelou := False;

  for i := 0 to Query.REcordCount - 1 do 
     begin 
       if Cancelou then
         Break;

         .... 
         ..... 
         .... 

      Query.Next;
    end;
end;

// No botão "Cancelar" (Form2):

procedure ...
begin
  Form1.Cancelou := True;
  Close;
end;