diff --git a/app/demo_simple/project1.lpi b/app/demo_simple/project1.lpi
index 639d9dd..6523b1d 100644
--- a/app/demo_simple/project1.lpi
+++ b/app/demo_simple/project1.lpi
@@ -67,6 +67,7 @@
     <Linking>
       <Debugging>
         <GenerateDebugInfo Value="False"/>
+        <DebugInfoType Value="dsDwarf3"/>
       </Debugging>
       <Options>
         <Win32>
diff --git a/app/demo_simple/unit1.pas b/app/demo_simple/unit1.pas
index e09547f..bbf01ad 100644
--- a/app/demo_simple/unit1.pas
+++ b/app/demo_simple/unit1.pas
@@ -19,7 +19,7 @@   TForm1 = class(TForm)
     Ed: TATSynEdit;
     Panel1: TPanel;
     procedure EdCommand(Sender: TObject; ACommand: integer;
-      AInvoke: TATEditorCommandInvoke; const AText: string;
+      AInvoke: TATCommandInvoke; const AText: string;
       var AHandled: boolean);
     procedure EdKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
@@ -78,7 +78,7 @@ procedure TForm1.DoCompletionProp(Sender: TObject; AContent: TStringList; out
 end;
 
 procedure TForm1.EdCommand(Sender: TObject; ACommand: integer;
-  AInvoke: TATEditorCommandInvoke; const AText: string; var AHandled: boolean);
+  AInvoke: TATCommandInvoke; const AText: string; var AHandled: boolean);
 begin
   if ACommand=cmd_AutoComplete then
   begin
@@ -91,7 +91,7 @@ procedure TForm1.EdKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
   if (Key=Ord(' ')) and (Shift=[ssCtrl]) then
-    Ed.DoCommand(cmd_AutoComplete, cInvokeAppInternal);
+    Ed.DoCommand(cmd_AutoComplete, TATCommandInvoke.AppInternal);
 end;
 
 end.