nu spørge jeg igen hvordan kan jeg tælle hvor mange Items der er i min listbox1.
jeg har prøvet den her, men uden held 
procedure TForm1.FormCreate(Sender: TObject);
var
nr: Integner;
begin
nr := ListBox1.Items.count;
StatusBar1.panels[0].text := nr;
end;
Bortset fra at det hedder Integer ser det rigtig nok ud
Du mangler dog at konvertere nr til en string før det virker:
procedure TForm1.FormCreate(Sender: TObject);
var
nr: Integer;
begin
nr := ListBox1.Items.count;
StatusBar1.panels[0].text := IntToStr(nr);
end;