listbox

下面这段代码用于将界面中某些组件的信息插入数据库中，但总是有错误。不知道用红色标出来的地方是不是方法用错了。
请高手帮帮忙改一下。

i:=1;
while i<=listbox1.Count do
begin
sqlstr3:='update roominform set roomstatus=1 where roomno='+listbox1.Items.GetText+'';
adocommand2.CommandText :=sqlstr3;
adocommand2.Execute ;
sqlstr4:='insert int register (cardNo,roomNo,date,regmoney,predates) values('''+edit3.Text +''','+listbox1.Items.GetText +','+edit9.Text+','''+edit8.Text +''','''+edit7.Text +'''';
adocommand3.CommandText :=sqlstr4;
adocommand3.Execute ;
end;

错误提示：
不正常地定义了参数对象。提供了不一致或不完整的信息。