procedure TForm1.Button1Click(Sender: TObject); begin if IsleapYear(2004) then ShowMessage('Es bisiesto.'); end;