Delphi - Transformar texto

Hola,
estoy intentando transformar una función que tengo hecha en ASP a Delphi, pero mis conocimientos sobre este lenguaje son un poco limitadillos.

La función sirve para transformar una cadena que tenga algún enlace HTTP o mail la muestre como un enlace activo, o sea que cuando se pulse encima se vaya a la página o envíe el mail.

Aqui les paso la función en ASP:

-------------------------------------------------------------------------------------------------

Private Sub WWWMAIL(CADENA)
dim MiArreglo,arroba,url,elemento,elemento2

MiArreglo = split(CADENA," ")
for each elemento in MiArreglo
arroba = InStr(elemento,"@")
url = InStr(elemento,"www")
if arroba<>0 then
elemento2 = "<a href=mailto:" & elemento & ">" & elemento & "</a>"
CADENA = replace(CADENA,elemento,elemento2)
end if
if url<>0 then
elemento2 = "<a href=http://" & elemento & " target='_blank'>" & elemento & "</a>"
CADENA = replace(CADENA,elemento,elemento2)
end if
next

Response.Write CADENA

END SUB