Objeto javascript que mostra um relógio no titulo ou no rodapé da página

function relogio(destino){
titulo = document.title;
frm = function(valor){
if (valor < 10){
return "0"+valor;
}
else{
return ""+valor;
}
}
atualiza = function(){
dia = new Date();
var msg = "";
msg = frm(dia.getHours())+" : "+frm(dia.getMinutes())+" : "+frm(dia.getSeconds());
if (destino == "titulo"){
document.title = msg+" - "+titulo;
}
else{
window.status = msg;
}

setTimeout("atualiza()", 1000);
}
atualiza();
}

Função em Delphi que cria diretórios

function split(texto: string; posicao : integer; charsplit : char): string;
var
cont : integer;
nTexto, retorno : string;
posicao_atual : integer;
begin
cont := 1;
nTexto := '';
posicao_atual := 0;
texto := texto+charsplit;
while (posicao_atual-2 < posicao) and (cont<=length(texto)) do
begin
nTexto := nTexto + texto[cont];
inc(cont);
if ((Texto[cont] = charsplit) or (cont = length(texto))) then
begin
inc(posicao_atual);
inc(cont);
if((posicao_atual = posicao) or (cont = length(texto)))then
begin
retorno := nTexto;
end
else
nTexto := '';
end;
end;
//retorno := copy(retorno, 0, length(retorno)-1);
result := retorno;
end;

procedure CriaDiretorio(Endereco: string);
var
cont : integer;
numero_pastas: integer;
pasta_atual: string;
deletar : variant;

begin
if Endereco[length(Endereco)] = '\' then
Endereco := copy(Endereco, 1, length(Endereco)-1);
numero_pastas := 0;
for cont := 1 to length(Endereco) do begin
if Endereco[cont] = '\' then begin
inc(numero_pastas);
end;
end;
pasta_atual := '';
for cont := 1 to numero_pastas+1 do begin
pasta_atual := pasta_atual+split(Endereco, cont, '\')+'\';
CreateDir(pasta_atual);
end;
end;