Utiliza bucles while y maneja el contador a mano, según te convenga
Código Delphi
[-]
Var
str, str2:string;
I, a:integer;
begin
str := 'BBBB-C0000754T20130517';
str2 := '';
i := 1;
while (i < length(str)) do
begin
if (str[i] = 'T') then
begin
a := i + 8;
while (i < a) do
begin
str2 := str2 + str[i];
i := i + 1;
end;
end;
i := i + 1;
end;
end;