No estoy seguro, pero si buscas en la ayuda de delphi FormatMaskText puede que esta funcion te valga.
o tambien puedes hacer en un string temporal lo siguiente:
Código Delphi
[-]
procedure TForm1.QuinceCar();
var
temp:string
begin
temp:=ADOT_TablaTCAMPO.AsString[1]+ADOT_TablaTCAMPO.AsString[2]+ADOT_TablaTCAMPO.AsString[3]+...+ADOT_TablaTCAMPO.AsString[15];
end;
De esta forma tendras en temp los 15 primeros caracteres que quieres