Здесь:
Код:
DataModule1.ADOQuery.SQL.Add('SET Rashodi = ' + a);
A вообще, можно делать в 1 запрос.
Код:
UPDATE Schet
SET Rashodi = (SELECT Sum(Summ) FROM Rasshody WHERE Id_user = 0 AND Id_schet = 48)
WHERE Id = 48
Естественно, это сам запрос. Кстати, запросы можно вносить одной строкой.
Например, в твоем случае Id надо заменить на некоторый параметр, запрос оформить константой и Format'ом просто вколачивать туда значение и целиком вставлять в ADOQuery.