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;