Cómo saber si un año es bisiesto

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsLeapYear(2001) then
     showmessage('bisiesto')
  else showmessage('No bisiesto')
end;