谁能帮我看看错在那里了？

var
sql:string;
begin
    sql:=Format('update pjinfom set dname ='''+edit1.text+''',classid = '''+dm.table4.fieldbyname('classid').asstring +''' where did ='''+ dm.table2.fieldbyname('dname').asstring+'''');
    dm.query9.Close;
    dm.query9.SQL.Clear ;
    dm.Query9.SQL.Add (sql );
    dm.Query9.ExecSQL ;
end;