{====================================='========================================}
                       constructor tInterpolater.create;
{====================================='========================================}
begin
inherited;
status                     := loading;
nameAndValuesList          := tList.Create;
genericProgressFunction    := linear;
end; {constructor tInterpolater.create}

{====================================='========================================}
                       destructor tInterpolater.destroy;
{====================================='========================================}
begin
inherited;
end; {destructor tInterpolater.destroy}

{====================================='========================================}
                     constructor tNameAndValues.create;
{====================================='========================================}
begin
inherited;
individualProgressFunction := nil;
end; {constructor tNameAndValues.create}

{====================================='========================================}
                     destructor tNameAndValues.destroy;
{====================================='========================================}
begin
inherited;
end; {destructor tNameAndValues.destroy}