Hacer copy pero un poco diferente

[*Caro*]

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