Descomponer cadena @String

[Alejo15x]

Hola.

Estoy desarrollando algo asi como un bot, bueno...

Tengo un ListBox, en el cual al dar a un boton se agrega los siguientes parametros:

Código Delphi [-]
a.Items.Add('Ground: ('+IntToStr(TPlayer.Create.Position.X)+' '+IntToStr(TPlayer.Create.Position.Y)+' '+IntToStr(TPlayer.Create.Position.Z)+')');

TPlayer es una class la cual lee un entero de una aplicaciòn.
El resultado seria por ejemplo:

Código Delphi [-]
Ground: (32000 32000 7)

Hay tengo los 3 parametros, ahora nesecito acceder a ellos:

Código Delphi [-]
var X, Y, Z : integer; sTipo : string; begin

Escribirle al sTipo donde esta el "Ground", al X, Y, Z, a dentro de los parentesis (X Y Z).

Código Delphi [-]
sTipo (X Y Z)

Bueno, creo que se podria usar un "case" o algo para verificar si "Ground" es ground, y despues escribir en X, Y, Z las X, Y, Z obtenidas en la cadena.

Aquì os dejo un ejemplo en LUA, para que me entiendan mejor. ( Quiero explicar que tengo TDAH alto, y la verdad por eso seme dificulta un monton explicarme, pero si entiendo la programacion ).

DecodeParam(ListBox.Items[i])
ListBox.Selected.ToString().Split (sTipo (lb1), X (lb2), Y (lb3), Z (lb4))if sTipo = "Groung" then Client.Escribir(X @X, Y @Y, Z @Y) End

Un saludote! Y espero me resuelvan la dudita!