ListBox füllen

[geosucher]

Hallo zusammen,

habe ein - sicher ganz blödes - Problem, programmiere mit Delphi XE5 FireMonkey für Android (Samsung Galaxy Tab).
Ich möchte eine ListBox füllen mit folgendem Code:

Delphi-Quellcode:

var FI      : array of TFileInfo;
    CountFI : Integer;

procedure TTabbedForm.LB_DatenSendenClick(Sender: TObject);
var i   : Integer;
    anh : String;
begin
 TabControl1.ActiveTab:=DateiTab;
 for I := 0 to CountFI-1 do
  begin
   if FI[i].Datum<>'' then
    anh:=FI[i].FileName+' * '+FI[i].Datum;
   if FI[i].Zeit<>'' then
    anh:=anh+' '+FI[i].Zeit;
   ListBox2.Items.Add(anh);
  end;
end;

CountFI ist im Beispiel gleich 2. Das Array ist entsprechend gefüllt. In der App habe ich dann nur einen Eintrag.
Im Debug zeigt er auch nur die Schleife für den Wert 1 an....???

Hat jemand eine Idee?

Gruß

Geosucher