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.