Como abortar correctamente un proceso que es interrumpido por el cierre del Form

[[seoane]]

Empezado por gluglu

Por lo tanto, en mi menú principal de la aplicación, dicho Form aparece como si estuviera 'activo'.

Como compruebas si el form esta activo, supongo que así:

Código Delphi [-]
  if FormMain <> nil then
   ... etc

Prueba con esto:

Código Delphi [-]
function Existe(F: TForm): Boolean;
var
  i: integer;
begin
  for i:= 0 to Screen.FormCount - 1 Do
    if Screen.Forms[i] = F then
    begin
      Result:= TRUE;
      Exit;
    end;
  Result:= FALSE;
end;

if Existe(FormMain) then
  etc ...