Hvordan \'tuner\' jeg denne kode: ?

Hejsa, er der nogen der har foreslag til at \'tune\' denne kode:
En af de ting jeg godt kunne tænke mig at komme ud over, er den refresh der ligger nederst, skal man have en refresh, får at få nyeste data på skærmen, efter at have ændret noget. ?


  DM.IBQPersonale.Locate(\'MEDARBEJDERNR\', DM.VagtplanSource.DataSet.FieldByName(\'MEDARBEJDERNR\').AsVariant, [loCaseInsensitive]);
  DM.IBQKunde.Locate(\'KUNDENR\', DM.VagtplanSource.DataSet.FieldByName(\'KUNDENR\').AsVariant, [loCaseInsensitive]);

  DM.VagtplanSource.DataSet.Edit;
  If DBComboBox1.Text = \'SV\' then
  begin
  // Persoanle løn
  DM.VagtplanSource.DataSet.FieldByName(\'P_LON_DAG\').AsFloat :=
    (DM.PersonaleSource.DataSet.FieldByName(\'LONTARIF_SV_DAG\').AsFloat *
      DM.VagtplanSource.Dataset.FieldByName(\'TIMER_DAG\').AsFloat);
  DM.VagtplanSource.DataSet.FieldByName(\'P_LON_NAT\').AsFloat :=
    (DM.PersonaleSource.DataSet.FieldByName(\'LONTARIF_SV_NAT\').AsFloat *
      DM.VagtplanSource.Dataset.FieldByName(\'TIMER_NAT\').AsFloat);
  // Kunde pris
  DM.VagtplanSource.DataSet.FieldByName(\'K_PRIS_DAG\').AsFloat :=
    (DM.KundeSource.DataSet.FieldByName(\'PRIS_SV_DAG\').AsFloat *
      DM.VagtplanSource.Dataset.FieldByName(\'TIMER_DAG\').AsFloat);
  DM.VagtplanSource.DataSet.FieldByName(\'K_PRIS_NAT\').AsFloat :=
    (DM.KundeSource.DataSet.FieldByName(\'PRIS_SV_NAT\').AsFloat *
      DM.VagtplanSource.Dataset.FieldByName(\'TIMER_NAT\').AsFloat);
  end;

  If DBComboBox1.Text = \'SVV\' then
  begin
  // Persoanle løn
  DM.VagtplanSource.DataSet.FieldByName(\'P_LON_DAG\').AsFloat :=
    (DM.PersonaleSource.DataSet.FieldByName(\'LONTARIF_SVV_DAG\').AsFloat *
      DM.VagtplanSource.Dataset.FieldByName(\'TIMER_DAG\').AsFloat);
  DM.VagtplanSource.DataSet.FieldByName(\'P_LON_NAT\').AsFloat :=
    (DM.PersonaleSource.DataSet.FieldByName(\'LONTARIF_SVV_NAT\').AsFloat *
      DM.VagtplanSource.Dataset.FieldByName(\'TIMER_NAT\').AsFloat);
  // Kunde pris
  DM.VagtplanSource.DataSet.FieldByName(\'K_PRIS_DAG\').AsFloat :=
    (DM.KundeSource.DataSet.FieldByName(\'PRIS_SVV_DAG\').AsFloat *
      DM.VagtplanSource.Dataset.FieldByName(\'TIMER_DAG\').AsFloat);
  DM.VagtplanSource.DataSet.FieldByName(\'K_PRIS_NAT\').AsFloat :=
    (DM.KundeSource.DataSet.FieldByName(\'PRIS_SVV_NAT\').AsFloat *
      DM.VagtplanSource.Dataset.FieldByName(\'TIMER_NAT\').AsFloat);
  end;

  DM.VagtplanSource.DataSet.Post;
  DM.IBQVagtplan.Database.ApplyUpdates([DM.VagtplanSource.DataSet]);
  DM.VagtplanSource.DataSet.Refresh;