in func GetOSRelDate:Longint

What is S used for???

        S    : AnsiString;
Begin
        s:='ab';
        SetLength(S,50);
{never used}

Next, 3 functions what is the benefit of having the exit instruction:

     exit;
   end;
end; {end of func definition}