Anmerkung: Das erste Item der Listbox hat den Index 0, so übergehst du immer das erste Item!
Zu deinem Fehler:
Delphi-Quellcode:
for i:=1 to listbox1.Count-1 do //Listbox 1
begin
zeiten[i]:=strtoTime(listbox2.Items[i]); //Listbox 2
end;
Edit: Habs abgesendet wegen dem Tipp
Delphi-Quellcode:
for i := 1 to 30 do
myDoubleVariable := myDoubleVariable+Zeiten[i]