[[Bicho]]

Hola,

aquí tienes una manera sencilla:

Código Delphi [-]
Function EsBisiesto(Anyo: string) : Boolean;
var FecAux : tDateTime;
begin
     try
        FecAux := StrToDate('29/02/'+Anyo);
        Result := True;
     except
        Result := False;
     end;
end;

Espero te sirva.

Saludos