Hvad mangler jeg

procedure TfrmMainBudget.SalgSGridClick(Sender: TObject);
begin
  frmSalg.DT := DateTimePicker.Date;
  SetRangeStart(frmSalg.DT); { Set the beginning key }
  FieldByName('Dato').AsString := frmSalg.DT;
  SetRangeEnd(frmSalg.DT); { Set the ending key }
  FieldByName('Dato').AsString := frmSalg.DT;
  ApplyRange; { Tell the dataset to establish the range }

  frmSalg.Show;
end;