Tempo - converter horas em minutos

// Converter hora (HH:MM) para minutos.

function HoraParaMin(Hora: String): Integer;

begin

  Result:= (StrToInt(Copy(Hora,1,2))*60) + StrToInt(Copy(Hora,4,2));

end;