Components for Delphi and C++ Builder.

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  MemTableEh1.LoadFromFile('C:\memtable.dfm_data');

  for I := 0 to DBGridEh1.Columns.Count-1 do
  begin
    if (DBGridEh1.Columns[i].Width > 60) then
      DBGridEh1.Columns[i].Width := 60;
  end;

  MemTableEh1.TreeList.DefaultNodeExpanded := True;
  MemTableEh1.TreeList.KeyFieldName := 'ID';
  MemTableEh1.TreeList.RefParentFieldName := 'PID';
  MemTableEh1.TreeList.FullBuildCheck := True;
  MemTableEh1.TreeList.Active := True;
end;