Hola Paulao, lo que yo haría seria cargar la cadena a un StringList y recorrer desde final hasta llegar a la descripción.
Código Delphi
[-]
var
Cadena : String;
StringList : TStringList;
begin
StringList := TStringList.Create;
Cadena := '1 00044313020078 T4 [T:4 ] CAMISA 1 x 63,00 63,00 ';
StringList.Delimiter := #32;
StringList.DelimitedText := Cadena;
for i:=StringList.Count-1 downto 0 do
begin
if StringList[i]='x' then
begin
showmessage('La descripción es: '+ StringList[i-2]);
break;
end
else
showmessage('Los ultimos valores: '+StringList[i]);
end;
end;
Saluditos