Schon ist klar wo der Fehler liegt:
Es darf nicht heißen
DBComboBox1.items:= DBComboBox1.items.add(inttostr(iii));
sondern nur
DBComboBox1.items.add(inttostr(iii));
Außerdem denke ich, muss der Inhalt deiner While-Schleife noch in ein Begin und End, so z.B.
Delphi-Quellcode:
while i <> ii do
begin
iii:= form4.table1['Datum'];
DBComboBox1.items:= DBComboBox1.items.add(inttostr(iii));
i:=i+1;
end;