Otra duda con archivo textos
 

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:
El primer me interesa:
y el segundo
Miren que ellos tiene tamaños diferentes. Como hago esto? Gracias a todos.

Una explicaccion:
Los archivos finales hay que venir divididos asi:
O sea, los tres primeros e depues los 11 ultimos.

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

Gracias, egostar. Listo!!!