Q&A - Question

uses 
  GisContour ;

function generateContourLayer( const _lp : TGIS_LayerPixel ) : TGIS_LayerVector ;
var
  cg : TGIS_ContourGenerator ;
  lv : TGIS_LayerVector ;
begin
  cg := TGIS_ContourGenerator.Create ;
  try
    cg.ContourBase     := 0 ;
    cg.ContourInterval := 10.0 ;
    cg.Smoothen        := True ;

    lv := TGIS_LayerVector.Create ;
    lv.Name := 'Contour' ;
    lv.CS   := _lp.CS ;
    lv.Open ;

    cg.Generate( _lp, lv, '') ;
  finally
    cg.Free ;
  end ;
  Result := lv ;
end;