begin
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('update xsjwxxmm set xsmm='''+spskinedit1.Text+''' where xh='''+number+'''');
AdoQuery1.Open;
end
number是一个全局变量
S := 'update xsjwxxmm set xsmm= %s where xh=%s';
ADOQuery1.SQL.ADD(Format(S, [QoutedStr(spskinedit1.Text), QuotedStr(Number)]));
ADOQuery1.SQL.ExecSQL;