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

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!!!