[dec]

Hola,

No sé si será muy elegante, ni siquiera si acierto con lo que creo que quieres, pero, vamos, a ver qué tal parece esto:

Código Delphi [-]
function GetLaminaType(rawData: string): string;
var
  i: integer;
begin
  i := Length(rawData);
  while (i >= 0) do begin
    if (rawData[i] = ' ') then
      break;
    result := rawData[i] + result;
    Dec(i);
  end;
end;

// Ejemplo de uso
procedure TForm1.Button1Click(Sender: TObject);
begin

  // Muestra BONE
  ShowMessage(GetLaminaType('LAMINA 187 X 305 BONE'));

  // Muestra BLANCO
  ShowMessage(GetLaminaType('LAMINA 187 X 305 BLANCO'));

end;