diff --git a/ide/newdialog.pas b/ide/newdialog.pas
index 735e540db8..b2886b4f28 100644
--- a/ide/newdialog.pas
+++ b/ide/newdialog.pas
@@ -144,7 +144,7 @@ type
     property NewItem: TNewIDEItemTemplate Read FNewItem;
   end;
 
-function ShowNewIDEItemDialog(var NewItem: TNewIDEItemTemplate): TModalResult;
+function ShowNewIDEItemDialog(out NewItem: TNewIDEItemTemplate): TModalResult;
 
 
 implementation
@@ -152,7 +152,7 @@ implementation
 
 {$R *.lfm}
 
-function ShowNewIDEItemDialog(var NewItem: TNewIDEItemTemplate): TModalResult;
+function ShowNewIDEItemDialog(out NewItem: TNewIDEItemTemplate): TModalResult;
 var
   NewOtherDialog: TNewOtherDialog;
 begin
diff --git a/ide/sourcefilemanager.pas b/ide/sourcefilemanager.pas
index b954579fb1..afe36cf912 100644
--- a/ide/sourcefilemanager.pas
+++ b/ide/sourcefilemanager.pas
@@ -115,7 +115,7 @@ type
     // methods for publish project
     procedure OnCopyFile(const Filename: string; var Copy: boolean; Data: TObject);
     procedure OnCopyError(const ErrorData: TCopyErrorData;
-        var Handled: boolean; Data: TObject);
+        var {%H-}Handled: boolean; {%H-}Data: TObject);
   public
     constructor Create;
     destructor Destroy; override;
@@ -658,6 +658,7 @@ begin
   end;
   if Result = nil then // should never happen
     Result := AnUnitInfo.OpenEditorInfo[0];
+  // ToDo: WantedTopLine
 end;
 
 function TFileOpener.OpenResource: TModalResult;