Otra duda con archivo textos

[Paulao]

Tengo um archivo que puede tener 60,65,66,67 68 o 70 posiciones. Pero lo que me interesa es las 14 ultimas posiciones, que debo dividir en dos archivos, o sea, los ultimos 11 caracteres y de los 14 ultimos, los 3 primeros. ejemplo:

6500200003400312003942LT4CALCA S/ PREGA BOLSO FACA00100000007500
6500300090983504026550LT4LINHA00100000013800

El primer me interesa:

00100000007500

y el segundo

00100000013800

Miren que ellos tiene tamaños diferentes. Como hago esto? Gracias a todos.

[Paulao]

Una explicaccion:
Los archivos finales hay que venir divididos asi:

001 00000007500
001 00000013800

O sea, los tres primeros e depues los 11 ultimos.

[[egostar]]

Hola

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Linea,Dato,Campo1,Campo2: string;
begin
  Linea := '6500200003400312003942LT4CALCA S/ PREGA BOLSO FACA00100000007500';
  Dato := Copy(Linea,Length(Linea)-13,14);
  Campo1 := Copy(Dato,1,3);
  Campo2 := Copy(Dato,4,11);
  ShowMessage(Dato+#13+Campo1+'-'+Campo2);
  Linea := '6500300090983504026550LT4LINHA00100000013800';
  Dato := Copy(Linea,Length(Linea)-13,14);
  Campo1 := Copy(Dato,1,3);
  Campo2 := Copy(Dato,4,11);
  ShowMessage(Dato+#13+Campo1+'-'+Campo2);
end;

Salud OS

[Paulao]

Gracias, egostar. Listo!!!