Rätsel über Rätsel... AV, wo es keine geben *kann*

[Meflin]

Aloha!

Ich habe ein Problem, das sich eigentlich niemand den ich bis jetzt fragte erklären kann: im constructor meiner Komponente erstelle ich u.a. eine TStringList, aber diese wird nicht erzeugt, der Debugger sagt mir dass sie nil ist.

Delphi-Quellcode:

  
private
  fPasswords: TStringList;
...
public
  constructor Create(AOwner: TComponent); reintroduce;
...
constructor TPasswordList.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  fPasswords := TStringList.Create;
  fCount := fPasswords.Count;
  fCS := TCriticalSection.Create;  
end;

wenn ich dann versuche z.b. die addmethode meiner kompo aufzurufen, die so aussieht:

Delphi-Quellcode:

function TPasswordList.Add(const s: string): Integer;
begin
  if ThreadSave then CS.Enter;
  Result := fPasswords.Add(s);
  if ThreadSave then CS.Leave;
  fCount := fPasswords.Count;
end;

und ich da einen Breakpoint setze, zeigt der Debugger an dass fPasswords nil ist und folglich endet das ganze in einer AV.

Aber wieso?