title: Getting the year of the current date
body: <pre><code>if StrToInt(sY) &gt; 2013 then
  begin
    bDate := False;
    ShowMessage('Year is bigger than current year');
    Exit;
  end;
  </code></pre>
  
  <p>This is what I have at this stage but I'm pretty sure there is a way to get the current year instead of having to manually type it in delphi code, would be much appreciated if someone could help me with the code for it.</p>