--- oup/current/FileClasses/SUBT.pas	2007/06/12 20:31:54	215
+++ oup/current/FileClasses/SUBT.pas	2007/06/29 12:38:24	233
@@ -15,7 +15,7 @@ type
 implementation
 
 uses
-  ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls;
+  ConnectionManager, Math, Classes, TypeDefs, _DataTypes, Forms, StdCtrls, Grids;
 
 procedure TFile_SUBT.InitDataFields;
 var
@@ -41,20 +41,18 @@ begin
       AddField(TInt, $00, 'Offset', '', @tempi);
     end;
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 procedure TFile_SUBT.InitEditor;
 var
-  lab: TLabel;
+  grid: TStringGrid;
 begin
   FEditor := TFrame.Create(nil);
-  lab := TLabel.Create(FEditor);
-  lab.Left := 0;
-  lab.Top := 0;
-  lab.Caption := 'Hello World';
-  FEditor.InsertControl(lab);
+  grid := TStringGrid.Create(FEditor);
+  grid.Parent := FEditor;
 end;
 
 end.
-