Delphi dicas

Como armazenar os segundos em uma variável inteira(integer).

Var

a:string;

b,c:integer;

begin

        //A variável "a" recebe a hora como string.

        a:=TimeToStr (now);

        //A variável "b" recebe a dezena do segundo transformada no tipo inteiro.

        b:=strtoint(a[7]);

        //A variável "c" recebe a unidade do segundo transformada no tipo inteiro.

        c:=strtoint(a[8]);

        b:=((b*10)+c);

        writeln(a);

        writeln(b);

end.

por : Yuri Fernando Lobato Reis