Trim is not procedure, but function, that is Trim(Bit); will do nothing.
But
will actually do what you want.
That did it.
Changed:
Trim(Bit); to Bit := Trim(Bit);
AAA, PAJN , PANC , B734_ASA , 0000 , ASA7731 , ASA199 , 0 < Actual text line
Bit := ExtractWord(5,LineIn, [',']);
So the statement ExtractWord(5,LineIn, [',']); is picking up a space. Must be before or after the 0000 field.
Thanks