Descomponer cadena @String

[[duilioisola]]

Creo entender que tu problema es recibir una cadena y averiguar cuales son los tres valores, separados por espacios.

Código Delphi [-]
procedure RecibeDato(aDato : string)
var
   Posicion : integer;
   sAux : string;
   sTipo : string;
   x,y,x : integer;
begin
   sAux := aDato;  //Trabajo con un auxiliar por si necesito aDato mas adelante en el procedimiento

   Posicion := Pos ('(',sAux); // Busco la posicion del parentesis
   sTipo := copy (sAux,1,Posicion); //copia desde el principio hasta x caracteres
   sAux := copy (sAux,Posicio+1,Length(sAux)) // obtengo el resto del dato

   Posicion := Pos (' ',sAux); // Busco la posicion del primer espacio
   x := StrToInt( copy (sAux,1,Posicion) );
   sAux := copy (sAux,Posicio+1,Length(sAux)) // obtengo el resto del dato

   Posicion := Pos (' ',sAux); // Busco la posicion del primer espacio
   y := StrToInt( copy (sAux,1,Posicion) );
   sAux := copy (sAux,Posicio+1,Length(sAux)) // obtengo el resto del dato

   Posicion := Pos (')',sAux); // Busco la posicion del parentesis que cierra
   z := StrToInt( copy (sAux,1,Posicion) );
   sAux := copy (sAux,Posicio+1,Length(sAux)) // obtengo el resto del dato

   [...]
end;

[delphi.com.ar]

Vas a terminar en un gran case, donde vas a necesitar interpretar primero cual es el método, a partir de allí sabes cuantos parámetros puedes recibir y debes hacer un split de sus parámetros y terminar ejecutando tu código según ellos, si falta o sobra uno producir un error.
Para hacer un Split, te recomiendo ver: ParseText, o leer la ayuda de la propiedad CommaText de la case TStrings, o la función ExtractStrings.

Saludos!

[Alejo15x]

Resuelto!

Gracias al duilioisola ese tambien funciona!
Pero este es mas facil:

function MySplit(source : string; delimiter : string): TStringList;
var i : integer;
s : string;
arrString: TStringList;
begin
arrString := TStringList.Create;
s := '';
i := 1;
repeat
begin
if Copy(source,i,Length(delimiter)) <> delimiter then
begin
s := s + Copy(source,i,1);
i := i + 1;
end
else
begin
arrString.Add(s);
s := '';
i := i + Length(delimiter);
end;
end
until i > Length(source);
if s <> '' then arrString.Add(s);
result := arrString;
end;

Código Delphi [-]
var
  arrWaypoint: TStringList;
  sList,Waypoint,sMode: string;
  posX,posY,posZ: string;
begin
  Waypoint := "Ground (1000 1450 7)"; 
 
  arrWaypoint := MySplit(Waypoint," ");
 
  sMode:= arrWaypoint.Strings[0]; // Returns "Ground"
 
  arrWaypoint := MySplit(Waypoint, "("); // These two lines are removing the brackets and "Ground" ...
  arrWaypoint := MySplit(arrWaypoint.Strings[1], ")"); // Only leaving "1000 1450 7"
 
  sList := arrWaypoint.Strings[0]; // = "1000 1450 7"
 
  arrWaypoint := MySplit(sList , " ");
 
  posX := arrWaypoint.Strings[0]; // 1000
  posY := arrWaypoint.Strings[1]; // 1450
  posZ := arrWaypoint.Strings[2]; // 7
end;