Problemão Programa pra ler dados de dar update em outra tabela

Bom galera estou com uma necessidade complicada, tenho um documento em excel o seguinte

codbarra | estoque

eu preciso pegar os dados desses codigo de barra buscar ele em uma tebela se existir atualizar o campo estoque da outra tabela, fiz assim mas nao funcionar

procedure TForm1.BitBtn3Click(Sender: TObject);
var

EXCEL: Variant;
w,x,y,z: integer;
d1,d2,d3,d4,d5: string;
c : AnsiString;

begin

EXCEL := CREATEOLEOBJECT('Excel.Application');
EXCEL.VISIBLE:=FALSE;
EXCEL.WORKBOOKS.OPEN(opendialog1.FileName);
z:= stringgrid1.RowCount;

for y:=1 to z do
begin
if pos(dbgrid1.SelectedField.AsString, EXCEL.WORKBOOKS[1].SHEETS[1].Cells[y+1,2]) > 0 then
begin

 dbnavigator1.BtnClick(nbnext);
 end//begin if

end;//begin for

end;
quem puder me dar uma luz, lembrando que o banco de dados que irá inserir é firebird. vlw gente.