Javascript to delphi

Hi Experts,

I have a function in javascript and I have to do the same function in delphi 7

Someone could help me please ?

The function is:

function gaiacb_onLoginSubmit() {
  var CONTINUE = 'continue';
  var f = GetForm();
  if (f) {
    var continueUrl = f[CONTINUE].value;
    if (continueUrl != null &&  continueUrl != '') {
      var lts = new Date().getTime();
      continueUrl = StripParam(continueUrl, 'ts=[0-9]*:[0-9]*:[0-9]*');
      var tsParam = startTime + ':' + focusTime + ':' + lts;
      continueUrl = AddUrlParam(continueUrl, 'ts', tsParam);
      f[CONTINUE].value = continueUrl;
    }
  }
  return true;
}

This function is in Orkut.com, in the login screen.

This funcion return somethink like this: http://www.orkut.com.br/RedirLogin.aspx?msg=0&ts=1224796766738:1224796766756:1224796796622

I have to generate the ts parameter at least because the rest does not change.

Thx for some help