Complete class implementation creates too much

I created a class in a wpf application. I put this in the class:

 namespace WPFApplication37;
interface
   type
      Database = public class
         private
         protected
         public
            procedure Open(  var connection : SqlConnection );
            procedure Close(     connection : SqlConnection );
         end;
implementation
end.

And when I told it to “Complete class” either from menu or keyboard, I got:

namespace WPFApplication37;
interface
uses 
   System.Data.SqlClient;
uses 
   System.Data.SqlClient;
   type
      Database = public class
         private
         protected
         public
            procedure Open(  var connection : SqlConnection );
            procedure Close(     connection : SqlConnection );
         end;
implementation
method Database.Open(var connection: SqlConnection);
begin
end;
method Database.Close(connection: SqlConnection);
begin
end;
end.

Which had two “uses”.

WPFApplication37.zip (38.2 KB)