что мешает разнести декларацию указателей и самих записей?
Код:
type
pcg_field_desc = ^tcg_field_desc;
pcg_message_desc = ^tcg_message_desc;
type
tcg_field_desc = record
...
type_msg: pcg_message_desc;
end;
tcg_message_desc = record
...
fields: pcg_field_desc;
...
end;