update table set aa = :x ,bb=:y , cc=:z where ....
parambyname('x').asstring := Edit1.Text;
......