Problema con horas

[gcc32]

En realidad solo he conseguido quitar los : puntos pero a la hora del redondeo me pierdo

Código Delphi [-]
var
  Form1: TForm1;
  Result:integer;
  S1,S2,H0:String;
  I:Integer;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
begin 
LHora.Caption:=TimeToStr(Now);
  S1:=TimeToStr(Time);
  S2:='';
  I:=1;
  while (I<=Length(S1)) do begin
    if (S1[i]<>':') then
      S2:=S2+S1[i];
    Inc(I);
  end;
   Result:=StrToInt(S2);
   H0:='0940';
   WB.Navigate('pagina'+H0+'.gif');
end;

end.