Fórum Código pesquisar não acha o arquivo o que tem de errado nele #259894

procedure TfrmVeiculo.spbtnPesquisarClick(Sender: TObject);
var
 intPosicao:Integer;
begin
   Reg_cadVeiculo := TStringList.Create;
   Reg_cadVeiculo.Insert(0, edtCodigo.Text);
   Reg_cadVeiculo.Insert(1, edtMarca.Text);
   Reg_cadVeiculo.Insert(2, edtModelo.Text);
   Reg_cadVeiculo.Insert(3, edtAno.Text);
  Reg_cadVeiculo.Insert(4, edtPlaca.Text);
  intPosicao := Reg_CadVeiculo.IndexOf( edtCodigo.Text + ´;´
  + edtMarca.Text + ´;´ + edtModelo.Text + ´;´ + edtAno.Text + ´;´ + edtPlaca.Text);
  ShowMessage(´ O cadastro foi encontrado na posição: ´ + IntToStr (intPosicao));

  For intPosicao := 0 To 4 Do
    edtCodigo.Text := edtCodigo.Text + Reg_CadVeiculo[intPosicao] + 1310;
    edtMarca.Text := edtMarca.Text  + Reg_CadVeiculo[intPosicao] + 1310;
    edtMarca.Text := edtMarca.Text  + Reg_CadVeiculo[intPosicao] + 1310;
    edtModelo.Text := edtModelo.Text  + Reg_CadVeiculo[intPosicao] + 1310;
    edtAno.Text := edtAno.Text  + Reg_CadVeiculo[intPosicao] + 1310;
    edtPlaca.Text := edtPlaca.Text  + Reg_CadVeiculo[intPosicao] + 1310;
   
    Reg_cadVeiculo.Sort;
       edtCodigo.Text := ´Código´ + 1310 ;
       edtMarca.Text := ´Marca´ + 1310 ;
       edtModelo.Text := ´Modelo´+ 1310 ;
       edtAno.Text :=´Ano´+ 1310 ;
       edtPlaca.Text := ´Placa´+ 1310 ;



  For intPosicao := 0 To 4 Do
     edtCodigo.Text := edtCodigo.Text + Reg_CadVeiculo[intPosicao] + 1310;
     edtMarca.Text := edtMarca.Text  + Reg_CadVeiculo[intPosicao] + 1310;
     edtMarca.Text := edtMarca.Text  + Reg_CadVeiculo[intPosicao] + 1310;
     edtModelo.Text := edtModelo.Text  + Reg_CadVeiculo[intPosicao] + 1310;
     edtAno.Text := edtAno.Text  + Reg_CadVeiculo[intPosicao] + 1310;
     edtPlaca.Text := edtPlaca.Text  + Reg_CadVeiculo[intPosicao] + 1310;
    
 ShowMessage(´ O cadastro foi encontrado na posição: ´ + IntToStr (intPosicao));



end;