[[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;