Hello All ...

=== Cut ===
unit MSGID;

interface

  function GetMSGID: LongInt;
  function GetMSGIDStr: string;

implementation

  {$L MSGID}

  function GetMSGID: LongInt; external;
  function GetMSGIDStr: string; external;

end. === Cut ===

Rene

---