Oncreate problem

Jeg har denne procedure som egentlig virker fint.
procedure udfyldComboFag;
var
i: integer;
r: integer;
begin
r := 1;

  with hovedform do
  begin
      while r < ComboBoxfag.Items.Count do
      begin
      ComboBoxfag.Items.Delete(r);
      r := r + 1;
      end;
  end;

i := 0;
  while i < NotatdataModul.FagTabel.RecordCount do
  begin
    with notatdatamodul do
    begin
    FagQuery.SQL.Clear;
    FagQuery.sql.add(\'select Fag\');
    FagQuery.sql.add(\'from Fag\');
    FagQuery.sql.add(\'where Nummer = :IDENT\');
    FagQuery.ParamByName(\'IDENT\').ASINTEGER := i;
    FagQuery.open;
    if FagQuery.recordcount > 0 then
        hovedform.ComboBoxfag.Items.Add(FagQuery.fields[0].value);
    end;
  i := i + 1;
  end;

end;

Jeg har haft den til at kører. Men når jeg kalder den i min Oncreate på min hovedform. Så virker det sku ikke. Den laver en EAccessViolation på en adresse. Hvilket jeg ikke forstår en skid af. Umiddelbart mener compileren det er i denne linie den er gal.
while i < NotatdataModul.FagTabel.RecordCount do
Er der nogen der kan forklare dette Fagtabel er aktiv.

Mads