Converter Hora para Minuto em delphi

// Converter hora (HH:MM) para minutos.Function HoraParaMin(Hora: String): Integer;beginResult := (StrToInt(Copy(Hora,1,2))*60) + StrToInt(Copy(Hora,4,2));end;