diff --git a/mimemess.pas b/mimemess.pas
index 0ad814d..0067b4a 100644
--- a/mimemess.pas
+++ b/mimemess.pas
@@ -266,11 +266,11 @@ type
 
     {:Compose message from @link(MessagePart) to @link(Lines). Headers from
      @link(Header) object is added also.}
-    procedure EncodeMessage;
+    procedure EncodeMessage; virtual;
 
     {:Decode message from @link(Lines) to @link(MessagePart). Massage headers
      are parsed into @link(Header) object.}
-    procedure DecodeMessage;
+    procedure DecodeMessage; virtual;
 
     {pf}
     {: HTTP message is received by @link(THTTPSend) component in two parts:
diff --git a/synachar.pas b/synachar.pas
index 9fea63d..5d39b29 100644
--- a/synachar.pas
+++ b/synachar.pas
@@ -223,6 +223,9 @@ function StringToWide(const Value: AnsiString): WideString;
 {:Convert WideString to binary string with unicode content.}
 function WideToString(const Value: WideString): AnsiString;
 
+function GetIconvIDFromCP(Value: TMimeChar): AnsiString;
+function GetCPFromIconvID(Value: AnsiString): TMimeChar;
+
 {==============================================================================}
 implementation