Function wirft zugriffsverletzung aus

[dor557]

Hallo zusammen.

Ich habe mir Folgende Procedure geschreiben und die in den Private bereich des Forms gesetzt.

Nun bekomme ich immer dann wenn die Funktion ausgeführt wird Eine zugriffsverletzung bei adresse 00499043.... Lesen von adresse B88366BB...

der Interne Debugger wirft mich nicht an die zeile wo der Fehler auftritt... zum einen ist meine Frage warum. und zum 2. kann jemand schauen wo ich da einen Fehler habe ??? Offenbar finde ich keinen....

Delphi-Quellcode:

procedure TkundenF.FieldEdit(const Wert : Boolean; buttons : array of TButton);
var
  I: Integer;
begin
  if Daten.Stammdaten.RecordCount < 1 then
    for I := 0 to KundenF.ComponentCount - 1 do
    begin
     if KundenF.Components[I].ClassType = TLabeledEdit then
      TLabeledEdit(KundenF.Components[i]).Enabled := Wert;
     if KundenF.Components[I].ClassType = TMemo then
      TMemo(KundenF.Components[i]).Enabled := wert;
     if KundenF.Components[I].ClassType = TComboBox then
      TComboBox(KundenF.Components[i]).Enabled := Wert;
     if KundenF.Components[I].ClassType = TLabel then
      TLabel(KundenF.Components[i]).Enabled := Wert;
   end;
   Ansprechpartner.Enabled := wert;
   newBtn.Enabled := false;
   SaveBtn.Enabled := false;
   DelBtn.Enabled := false;
   ApplyBtn.Enabled := false;
   closebtn.Enabled := false;
   for I := 0 to sizeof(Buttons) - 1 do
     Buttons[i].Enabled := true;
end;

Gruss Sascha