--- oup/current/FileClasses/TXMP.pas	2007/05/29 19:39:15	207
+++ oup/current/FileClasses/TXMP.pas	2007/06/12 16:42:53	212
@@ -3,7 +3,7 @@ unit TXMP;
 interface
 
 uses
-  TypeDefs, _FileTypes, _DataTypes;
+  _FileTypes;
 
 type
   TFile_TXMP = class(TFile)
@@ -16,21 +16,9 @@ type
 implementation
 
 uses
-  ConnectionManager, Math, Classes;
-
-{ TFile_SNDD }
-
-procedure TFile_TXMP.InitDatLinks;
-begin
-  SetLength(FDatLinks, 2);
-  FDatLinks[0].SrcOffset := $94;
-  FDatLinks[0].DestID := -1;
-  FDatLinks[0].PosDestExts := '*';
-  FDatLinks[1].SrcOffset := $98;
-  FDatLinks[1].DestID := -1;
-  FDatLinks[1].PosDestExts := 'TXMP';
-end;
+  ConnectionManager, Math, Classes, TypeDefs, _DataTypes;
 
+{ TFile_TXMP }
 
 procedure TFile_TXMP.InitDataFields;
 var
@@ -38,7 +26,7 @@ var
   temps: String;
   templist: TStringList;
 begin
-  FDataFields := TBlock.Create(Self, 0, 'Base', '', nil);
+  FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
   templist := TStringList.Create;
   with FDataFields do
   begin
@@ -118,6 +106,18 @@ begin
 end;
 
 
+procedure TFile_TXMP.InitDatLinks;
+begin
+  SetLength(FDatLinks, 2);
+  FDatLinks[0].SrcOffset := $94;
+  FDatLinks[0].DestID := GetDatLinkValue(FFileStream, $94);
+  FDatLinks[0].PosDestExts := '*';
+  FDatLinks[1].SrcOffset := $98;
+  FDatLinks[1].DestID := GetDatLinkValue(FFileStream, $98);
+  FDatLinks[1].PosDestExts := 'TXMP';
+end;
+
+
 procedure TFile_TXMP.InitRawList;
 var
   link_pc:   Integer;