TStringList erzeugt access violation...

[user0815]

Ich verstehe nichts mehr....

Habe ein neues Projekt erstellt, drücke ich auf den Button erscheint die Meldung "ok".

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    SendeListe : TStringList;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SendeListe.Count > 0
   then ShowMessage('falsch')
    else ShowMessage('ok')
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if SendeListe <> nil
   then SendeListe.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SendeListe := TStringList.Create;
end;

In einem anderen Projekt habe ich ähnliches. Hier erhalte ich allerdings eine Exception die ich nicht verstehe.
Ich habe hier mal den Code auf den Button wo es passiert verkürzt:

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    SendeListe : TStringList;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendeListe := TStringList.Create;

  if SendeListe.Count > 0
   then ShowMessage('falsch')
    else ShowMessage('ok')
end;

sobald ich auf den Button drücke erhalte ich bei Zeile: "if SendeListe.Count > 0" eine Exception.

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt SoUndSo.exe ist eine Exception der Klasse $C0000005 mit der Meldung 'access violation at 0x00700bfd: read of address 0x02000041' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

Der Debugger spuckt über dem "count" als Meldung "Ungültiger Ausdruck im Evaluator" aus.

Gibt es irgendwelche Projektdateien die man löschen kann damit dieser nicht vorhandene Fehler verschwindet.
Neustart: Delphi, Rechner hat nichts gebracht.
Ich verstehe leider nichts mehr.