Dicas Delphi - Verificando Ano Bixesto

// Verifica se um ano é bixesto, retornando True em caso positivo}

function AnoBis(Data: TDateTime): Boolean;
var
Dia,Mes,Ano : Word;
begin
DecodeDate(Data,Ano,Mes,Dia);
if Ano mod 4 <> 0 then
AnoBis := False
else if Ano mod 100 <> 0 then
AnoBis := True
else if Ano mod 400 <> 0 then
AnoBis := False
else
AnoBis := True;
end;