diff --git a/compiler/omfbase.pas b/compiler/omfbase.pas
index 5ccfc88e6e..6c4d312fa9 100644
--- a/compiler/omfbase.pas
+++ b/compiler/omfbase.pas
@@ -329,6 +329,14 @@ interface
       property NoList: Boolean read GetNoList write SetNoList;
     end;
 
+    { TOmfRecord_COMENT_Subtype }
+
+    TOmfRecord_COMENT_Subtype = class
+    public
+      procedure DecodeFrom(ComentRecord: TOmfRecord_COMENT);virtual;abstract;
+      procedure EncodeTo(ComentRecord: TOmfRecord_COMENT);virtual;abstract;
+    end;
+
     { TOmfRecord_LNAMES }
 
     TOmfRecord_LNAMES = class(TOmfParsedRecord)