Для начала вытащи date.
ADOQuery1.Active := false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT *');
ADOQuery1.SQL.Add('FROM table');
ADOQuery1.SQL.Add('WHERE id=:id');
ADOQuery1.Active := true;
ADOQuery1.FieldByName('date').AsString;
Потом, соответственно, найди разницу с текущим временем(difference), переведи в дни (не буду искать как, однозначно можно, есть же strtodate) и запиши в поле.
ADOQuery1.SQL.Add('UPDATE table SET res=:difference WHERE id=:id');
Ну, думаю, общую концепцию ты понял. Могу и ошибиться где-то, ибо не знаток ADOQuery.