ADOCommand:Missing CommandText property,该怎么处理

ADOCommand:Missing CommandText property
procedure TForm1.Button7Click(Sender: TObject);
var i:integer;
begin
  with ADOCommand do
  begin
  for i:=0 to Memo.Lines.Count do
  begin
  ADOCommand.Connection:=ADOConn;
  ADOCommand.CommandText:=''+Memo.Lines[i]+'';
  ADOCommand.Execute;
  end;
  end;
end;

这个一个循环读取memo每行的SQL 插入可以插入到数据库 但是老是弹出一个ADOCommand:Missing CommandText property错误

[解决办法]
for i:=0 to Memo.Lines.Count - 1 do