2 Listbox y BD ....

[elbilla]

Tengo dos LISTBOX en los cuales hago lo de siempre, pasar de un lado a otro valores de 1 lista. El problema que tengo es que al pasarlo a la base de datos lo hago de la siguiente manera y me da error. Si por ejemplo, en este caso, paso dos valores a la lista me lo mete en la base de datos, pero si solo meto un valor me da error " LIST INDEX OUT OF BOUNDS (1)"
Pensaba que si comparaba con ' ' y habia algo metido lo pasaría a la base de datos y sino no se metería en el bucle. Que hago mal ??
El objetivo es q todos los valores que paso a la segunda lista se metan en una base de datos.

table4.open;
table4.insert;
x:=0;
if listbox3.Items[x] <> ' ' then
  begin
  table4.FieldByname('Exp1').AsString:=listbox3.Items[x];
  x:=x+1;
  end;
if listbox3.Items[x] <> ' ' then
  begin
  table4.FieldByname('Exp2').AsString:=listbox3.Items[x];
  x:=x+1;
  end;
 
Table4.post;
table4.flushbuffers;

Un saludo.
Gracias