Function IsLeapYear

Uses Unit SysUtils

A função IsLeapYear retorna true se o ano passado ao parâmetro for bissexto, caso contrário retorna false;

Sintaxe da sua utilização:

IsLeapYear(Ano);

Ex:

procedure TForm1.Button14Click(Sender: TObject);
begin
       if isLeapYear(2006) then Showmessage('Bissexto')  else Showmessage('Não');
end;