procedure TRepMetalWorkingDM.frReportGetValue(const VarName: String; var Value: Variant);
begin
  if CompareText(VarName, 'NamePlace') = 0 then
    Value := NamePlace[UserDataSet.RecNo]
  else
  if CompareText(VarName, 'Key') = 0 then
    Value := Key[UserDataSet.RecNo]
  else
    Value := ' Unknown Identifier "'+VarName+'"';

end;