Ventana con mensaje (No Responde)

[Efren2006]

Buenas Tardes

Perdonen no haber respondido antes,,, el Codigo es asi;

Código Delphi [-]
     Try
       Screen.Cursor:=crHourGlass;
       LockWindowUpdate(Handle);
       DetDocumento.Tag:=99;
       Relacion.Close;
       Relacion.Open;
       Relacion.First;
       while Not Relacion.eof do
         Begin
         DetDocumento.Insert;
         DetDocumentoNUMLIQUIDA.Value:=RelacionNUMLIQUIDA.Value;
         DetDocumentoTOTLIQUIDA.Value:=RelacionTOTLIQUIDA.Value;
         DetDocumentoPAGODIV.Value:=RelacionPAGODIV.Value;
         DetDocumentoPAGOBOL.Value:=RelacionPAGOBOL.Value;
         DetDocumento.Post;
         Relacion.Next;
         End;
     Finally
       LockWindowUpdate(0);
       Screen.Cursor:=crArrow;
       DetDocumento.Tag:=0;
       DetDocumento.First;
       Relacion.Close;
     End;

Imaginense que la tabla "RELACION" tiene 1000 Registros o mas... Alli la Ventana cuando Termina el Proceso me la desaparece y debo Minimizar la aplicación y volverla a maximizar para que me aparezca...

Esa tabla la lleno temporal para que el usuario seleccione varios registros o todos,...