procedure TFormListPart.DBGrid1TitleClick(Column: TColumn);
begin
  qryParts.Close();
  if bool_asc then
    qryParts.IndexFieldNames := Column.FieldName + ':A'
  else
    qryParts.IndexFieldNames := Column.FieldName + ':D';
  qryParts.open;
end; 

procedure TFormListPart.qryPartsCalcFields(DataSet: TDataSet);
var
  partPath: String;
  pngFile: String;
begin
  partPath := DatabaseDataPath + IncludeTrailingPathDelimiter(rootPartNoDoc) + qryParts.FieldByName('PART_NO').AsString;
  qryParts.FieldByName('PACKAGE').Clear;
  if FormMenu.FindPngFiles(partPath, pngFile) then
    qryParts.FieldByName('PACKAGE').AsString := ExtractFileName(ChangeFileExt(pngFile, ''));
end;