var
  SqlStr: String;
  article_name: String;
begin
  article_name := 'xxx';
  SqlStr := 'Insert into ' + article_name + ' values(''a'',''b'')';
  try
    Query1.close;
    Query1.Sql.Clear;
    Query1.Sql.Add(SqlStr);
    Query1.ExecSql;
  except
    raise;
  end;
end;good luck
三少 :o)