[torito]

Hola amigos foreros, nuevamente yo peliandome con pasar programas a Delphi, me encuentro en la siguiente cuestión tengo este codigo en visual Basic, bueno es de esta función donde se toman los parametros para otra

Private Sub WebLink1_Request(ByVal arguments As Object, ByVal values As Object)
...strCMD = FindArgValue("cmd", arguments, values)... End Sub

Public Function FindArgValue(str As String, args As Object, ByVal values As Object) As String
  '
  ' This function finds the specifed argument and its corresponding value.
  '
  FindArgValue = ""
  Dim value As Integer
  value = args.Find(str, 0)
  If value > -1 Then
    FindArgValue = values.Item(value)
  End If
End Function

y yo en Delphi me encontre que cambia un poco:

procedure TForm1.WebLink1Request(ASender: TObject; const arguments,
  values: IDispatch);

alguien me pudiera auxiliar para poder pasar esta funcion a delphi??
muchas gracias