leer string por caracteres

[tgsistemas]

gracias Caro y duilioisola, vuestra ayuda ha funcionado perfectamente
al final he creado una función ya que la necesitaré bastante en este proyecto :

Código Delphi [-]
Function ConvertStringaTime(CadenaHora: String): Integer;
var
  ihor, imin, iseg, p, ivalor : Integer;
begin
  if (CadenaHora <> Null) then
  begin
    p := pos (':',CadenaHora);
    ihor := StrToInt(Copy(CadenaHora, 1, p-1));
    imin := StrToInt(Copy(CadenaHora, p+1, 2));
    iseg := StrToInt(Copy(CadenaHora, p+4, 2));
    if ihor >0 then ivalor := (ihor *3600) else ivalor := 0;
    if imin >0 then ivalor := ivalor + (imin+60) else ivalor := ivalor;
    if iseg >0 then ivalor := ivalor + iseg else ivalor := ivalor;
  end;
  if ivalor>0 then  Result := ivalor else Result := 0;
end;

muchas gracias por la ayuda !!!!