Listboxwerte untereinander auslesen

[thorstenf01]

Hy,
die unten gezeigte Prozedur soll bei einer "1" (der Timer1 ist enabled) die aktuelle Uhrzeit + "ja"
in die Listbox schreiben. Das Problem liegt nun darin, das der Listboxkopf zwar steht, aber die zyklische
Abfrage jedesmal überschrieben wird, anstatt untereinander ausgegeben zu werden.
Nehme ich nun das "ListBox2.Items.Clear;" heraus, so wiederholt sich der Listboxkopf, die zyklische Abfrage wird aber
nicht überschrieben.
Wie bekomme ich es nun hin, das der Listboxkopf fix bleibt und die zyklische Abfrage untereinander Ausgegeben wird?

Code:

procedure TForm3.Timer1Timer(Sender: TObject);
var Zahl :real;
begin
   ListBox2.Items.Clear;
   ListBox2.Items.Add(' ');
   ListBox2.Items.Add('        Abfrage der Schnittstelle                         ');
   ListBox2.Items.Add(' ');
   ListBox2.Items.Add('     Uhrzeit         Schattenwurf vorhanden              ');
   ListBox2.Items.Add(' ');
   ListBox2.Items.Add('______________________________________________________________________');
   ListBox2.Items.Add(' ');

  Zahl:= strtofloat(Edit1.text);
  try
    if Zahl = 1 then
    ListBox2.Items.Add( TimeToStr(Time) +  'Uhr'     +     '  ja ')
    except

  end;
end;

Gruß
Thorsten