Fix in editor predict

Author: kdekraker

GDK.ToolsAPI.Helper.pas

@@ -366,7 +366,7 @@ function TToolsApiModule.SourceEditor(const Predicate: TFunc<IOTASourceEditor, B
   Found := Editor(
                 function(Editor: IOTAEditor): Boolean
                 begin
-                  Result := (Editor.QueryInterface(IOTASourceEditor, Result) = S_OK);
+                  Result := Supports(Editor, IOTASourceEditor);
                 end);
 
   SourceEditor := Found as IOTASourceEditor;
@@ -380,7 +380,7 @@ function TToolsApiModule.FormEditor(const Predicate: TFunc<IOTAFormEditor, Boole
   Found := Editor(
                 function(Editor: IOTAEditor): Boolean
                 begin
-                  Result := (Editor.QueryInterface(IOTAFormEditor, Result) = S_OK);
+                  Result := Supports(Editor, IOTAFormEditor);
                 end);
 
   Result := Found as IOTAFormEditor;