diff --git a/lib/delphi/src/Thrift.Protocol.pas b/lib/delphi/src/Thrift.Protocol.pas
index 6cff09c..3df3574 100644
--- a/lib/delphi/src/Thrift.Protocol.pas
+++ b/lib/delphi/src/Thrift.Protocol.pas
@@ -114,7 +114,7 @@
     function GetCount: Integer;
     procedure SetCount( Value: Integer);
   public
-    constructor Create( AValueType: TType; AKeyType: TType; ACount: Integer); overload;
+    constructor Create( AKeyType, AValueType: TType; ACount: Integer); overload;
     constructor Create; overload;
   end;
 
@@ -733,7 +733,7 @@
 
 { TMapImpl }
 
-constructor TMapImpl.Create(AValueType, AKeyType: TType; ACount: Integer);
+constructor TMapImpl.Create( AKeyType, AValueType: TType; ACount: Integer);
 begin
   inherited Create;
   FValueType := AValueType;