Verificar se um ano é bissexto

//Verifica se um ano é bissexto, retornando True em caso positivo.

function AnoBis(Data: TDateTime): Boolean;varDia,Mes,Ano : Word;beginDecodeDate(Data,Ano,Mes,Dia);if Ano mod 4 <> 0 thenbeginAnoBis:= False;endelse if Ano mod 100 <> 0 thenbeginAnoBis:= True;endelse if Ano mod 400 <> 0 thenbeginAnoBis:= False;endelsebeginAnoBis:= True;end;end;