[jhonny]

Hola , La verdad es que no se si este es el origen del problema pero yo pondria tu codigo asi:

function    TDlg_BuscarDni.ejecutar(tabla:TTable):Boolean;
var
i:integer;
begin

    if showModal=mrOk then
    begin
       Form_AltaAlumnos.qry_dniAlumno.Close;
    try
       Form_AltaAlumnos.qry_DniAlumno.ParamByName('dni').AsString:=Edit_Dni.Text;
    finally
      Form_AltaAlumnos.qry_DniAlumno.Open;
      Form_AltaAlumnos.ShowModal;
      Form_AltaAlumnos.Release;
    end;
  end
  else ejecutar:=false;
end;