Mudar Estas funciones de vb a Delphi

[ColdFusion]

ok eso me keda claro, ahora surge otra duda
como uso el
select case

nesecito alguien que sepa programar en vb y delphi para que me pueda ayuda

es que nesecito UBound

por ejemplo esta funcion

Function StrIPToHexIP(IpStr As String) As String
Dim SplitIp() As String
Dim ConvertingLoop As Integer
SplitIp = Split(IpStr, ".")
For ConvertingLoop = 0 To UBound(SplitIp)
StrIPToHexIP = StrIPToHexIP + Chr(SplitIp(ConvertingLoop))
Next ConvertingLoop
End Function

el CStr

Function HexIPToStrIp(IpStr As String) As String
Dim ConvertingLoop As Integer
For ConvertingLoop = 1 To 4
HexIPToStrIp = HexIPToStrIp + CStr(Asc(Mid(IpStr, ConvertingLoop, 1))) + "."
Next ConvertingLoop
HexIPToStrIp = Left(HexIPToStrIp, Len(HexIPToStrIp) - 1)
End Function