Database.StartTransaction;
Dataset1.Update;
Dataset1.Columns['LastLogin'].AsDateTime := now;
Dataset1.Save;

Dataset2.open;
Dataset2.insert;
Dataset2.columns['PatientenID'].asInteger := 1;              Dataset2.save;
try
   Database.Commit;
except
   Database.Rollback;
   raise ;
end;