Otra forma un poco más elegante:
Código Delphi
[-]
with frm_DataModule.qry_Alum_Calificacion do
begin
try
Transaction.StartTransaction;
Close;
SQL.Clear;
SQL.Add('UPDATE CALIFICACION set M01 ='+QuotedStr(Edit2.Text)+', ID_MATERIA1 = '+QuotedStr('No Esta Cursando'));
SQL.Add('WHERE MATRICULA ='+QuotedStr(Label2.Caption));
ExecSQL;
Transaction.Commit;
except
Transaction.Rollback;
MessageDlg('Ha ocurrido un error al modificar los datos.', mtError,[mbOk], 0);
end;
end;