Label
  Exit;

Var
  ret_status            : Dwt$Cardinal;
  topLevel, main        : Dwt$Widget;
  class                 : Dwt$DRM_type;
  hierarchy             : Dwt$DRM_Hierarchy;


{ Fetch and manage the widget tree }
ret_status := Dwt$Fetch_Widget (hierarchy, 'MAIN', topLevel, main, class);
if ret_status <> DWT$C_DRM_SUCCESS then
  begin
  writeln('Error fetching widgets');
  goto Exit
  end;



Exit:
end.