1:
2:

if StringGrid1.Cols[0].IndexOf(...)<>-1 
  then ...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

//Irgendwo in eine Button...
While StringGrid1.Cells[0,TabelleAy]<>'' do begin
  TabelleAartnummer:=StringGrid1.Cells[0,TabelleAy]; //Artikelnummer Tabelle A
  TabelleAy:=TabelleAy+1;                            //Nächste Zeile vorbereiten
  TabelleBartnummer:=StringGrid2.Cells[0,TabelleBy]; //Artikelnummer Tabelle B

  if StringGrid2.Cols[0].IndexOf(TabelleAartnummer)=-1 //Wert auffinbar?
     then begin
     StringGrid3.Cells[0,Tab3y]:=TabelleAartnummer; //wenn nein, dann schreibe den in die 3. Tabelle
     Tab3y:=Tab3y+1;                                //Damit der nächste Eintrag nicht den                    
                                                    //jetzigen überschreibt
  end;
//fals da noch mehr kommen sollt