consulta por campo calculado

[noe]

Mi codigo es el siguiente( este codigo esta en un boton)

procedure TFrm_ConsultaAtrasos.BitBtn1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT Alumnos.matricula, Alumnos.ApPat, Alumnos.ApMat, Alumnos.Nombre, Alumnos.Horario, Alumnos.status, Alumnos.Nombreprof, Alumnos.Colegiatura, Alumnos.UltSem, sum(Cobranza.Buenopor)as TotalPagado');
Query1.SQL.Add('FROM cobranza, Alumnos');
Query1.SQL.Add('Where (Alumnos.Matricula=Cobranza.Matricula) and (Alumnos.Status="ACTIVO")');
Query1.SQL.Add('Group by Alumnos.matricula, Alumnos.ApPat, Alumnos.ApMat, Alumnos.Nombre, Alumnos.horario, Alumnos.status, Alumnos.nombreprof, Alumnos.colegiatura, Alumnos.UltSem');
Query1.SQL.Add('Order by Alumnos.NombreProf, Alumnos.Horario, Alumnos.ApPat, Alumnos.ApMat, Alumnos.Nombre');
Query1.Open;

end;

y este otro en mi evento onClacFields

procedure TFrm_ConsultaAtrasos.Query1CalcFields(DataSet: TDataSet);
var
  SemanaComparacion: Integer;
  Atraso: Integer;
  Colegiatura: Integer;


begin
  SemanaComparacion := StrToInt(Edt_SemComparacion.Text);
  Atraso := SemanaComparacion - Query1.FieldByName('UltSem').AsInteger;
  Colegiatura := Query1.FieldByName('Colegiatura').AsInteger;

  Query1.FieldByName('Atraso').AsInteger:= Atraso;
  Query1.FieldByName('Adeudo').AsInteger := Colegiatura*Atraso;

end;

Eso es todo
A ver si asi me pueden ayudar, lo que quiero solamente es que se muestren en la consulta solo los que deban de 3 a mas semanas de colegiatura
Gracias