[Tokariy]

оказалось всё гораздо проще
в uses добавить DateUtils
и прописать на событие OnCalcFields компонента Query1 следующее:

Код:

procedure TForm1.Query1CalcFields(DataSet: TDataSet);
begin
     if (Query1.FieldByName('Ocenka').Value='2') then
     begin
      Query1.FieldByName('Data_per').AsDateTime:=IncDay(Query1.FieldByName('Data_ekzamena').AsDateTime,10);
     end;
end;

но для поля Data_per задаю всё таки тип не Data а DateTime.. и всё как по маслецу)