Read the comments above IOTAProjectOptions declaration in ToolsApi unit.
Try something like this:
var
Options: TStrings;
begin
Options := TStrings(Integer(ProjectOptions.Values['Keys']));
if Assigned(Options) then
Options.Values['FileDescription'] := Title;
end;
Read the comments above
IOTAProjectOptionsdeclaration inToolsApiunit. Try something like this: