Função: Validar Hora - Códigos Delphi

Código Delphi

// Função: Validar Hora.

// Verifica se Uma String no Formato Hora é Valida ou Não.

Código

Function HoraValida(strh:string): Boolean;
var
hh : Integer;
mm : Integer;
code : Integer;
begin
Result := True;
If (Length(Strh) = 0) or (Strh[1] = ' ') or (Strh[2] = ' ') or (Strh[4] = ' ') or (Strh[5] = ' ') then
begin
Result := False;
end
else
begin
Val(Copy(Strh, 1, 2), hh, Code);
Val(Copy(Strh, 4, 2), mm, Code);
If (hh >= 24) or (mm >= 60) then
begin
Result := False;
end;
end;
end;