Encolding error in the d2010

Question

Hello
I am testing Delphi 2010 and I was with the following mistake:
Do I enter with this chain of characters "096 - Construção Ltda" and do I only move her/it for another variable and do look at him/it what leaves "096 - Construção Ltda", does anybody know how to find out that that???

Entrance base

001 Alcides João Pereira
002 Alvir Maçaneiro
003 Auto Elétrica Imamura Ltda
004 Auto Peças Araújo
005 Auto Peças Porto Eixo Ltda
006 Auto Peças União
007 Azambuja Industria Comercio de Materiais de Construção Ltda
008 Balaroti Comercio De Materiais De Construção Ltda
009 Baldissera Logística e Transportes Ltda Me
010 Battistella Veículos Pesados Ltda
011 Berton Diesel Auto Peças
012 Bisolo Materiais de Construção Ltda

procedure TForm1.Button2Click(Sender: TObject); var tfEntrada : TextFile; intI, intJ : Integer; strA, strS : String;

procedure lerUm; //To read a registration of the file text begin inc( intI ); ReadLn( tfEntrada, strS );

  strA := Copy( IntToStr( intI + 1000 ), 2, 3 ) + ' - ';
  Edit1.Text := strS;

end;

begin

intI := 0; AssignFile( tfEntrada, 'nomes_tst_0001.txt' ); Reset( tfEntrada );

lerUm;

while not Eof ( tfEntrada ) do begin

 mmEntrada.Lines.Add( strA + strS ); //I move for TMemo(mmEntrada, mmSaida), in the form

 mmSaida.Lines.Add( strA + strS );

 lerUm;

end;

CloseFile( tfEntrada );

end;

result base

001 - Alcides João Pereira
002 - Alvir Maçaneiro
003 - Auto Elétrica Imamura Ltda
004 - Auto Peças Araújo
005 - Auto Peças Porto Eixo Ltda
006 - Auto Peças União
007 - Azambuja Industria Comercio de Materiais de Construção Ltda
008 - Balaroti Comercio De Materiais De Construção Ltda
009 - Baldissera Logística e Transportes Ltda Me
010 - Battistella Veículos Pesados Ltda
011 - Berton Diesel Auto Peças 012 - Bisolo Materiais de Construção Ltda