O no entiendo o no veo dónde está el problema.
Los valores de Atraso y Adeudo corresponden a dos sencillas fórmulas:
Atraso = SemanaComparacion - UltSem
Adeudo = Colegiatura*Atraso
donde SemanaComparacion es un
valor fijo que introduces en el Edit.
Estas mismas fórmulas son las que debes poner en el evento OnCalcFields:
Código Delphi
[-]
var
SemanaComparacion: Integer;
Atraso: Integer;
Colegiatura: Integer;
begin
SemanaComparacion := StrToInt(Edit1.Text);
Atraso := SemanaComparacion - DataSet.FieldByName('UltSem').AsInteger;
Colegiatura := DataSet.FieldByName('Colegiatura').AsInteger;
DataSet.FieldByName('Atraso').AsInteger := Atraso;
DataSet.FieldByName('Adeudo').AsInteger := Colegiatura*Atraso;
end;
// Saludos