var
inStueckliste, inKomponentenliste : TStringList;
iLoop, iCount, i : integer;
searchKey, findKey, findItems : string;
tmpStueck, tmpKomp : TStringDynArray;
begin
  if (AdvFileNameEdit1.Text <> '') and (AdvFileNameEdit2.Text <> '') then
  begin
    inStueckliste := TStringList.Create;
    inKomponentenliste := TStringList.Create;
    inKomponentenliste.LoadFromFile(AdvFileNameEdit1.Text);
    inStueckliste.LoadFromFile(AdvFileNameEdit2.Text);
    for iLoop := 0 to inKomponentenliste.Count - 1 do
    begin
      tmpKomp := explode(';',inKomponentenliste[iLoop]);
      searchkey := tmpKomp[11];
      for iCount := 0 to inStueckliste.Count - 1 do
      begin
        tmpStueck := explode(';',inStueckliste[iCount]);
        findKey := tmpStueck[3];
        if searchKey = findKey then
        begin
          if MessageDlg('Datensatz ' + searchkey + ' wurde!Übernehmen?',mtConfirmation,[mbYes,mbNo],0) = mrYes then ShowMessage('Wird gemacht!');
        end; {if (searchKey = findKey) then}
      end; {for iCount := 0 to inStueckliste.Count - 1 do}
    end; {for iLoop := 0 to inKomponentenliste.Count - 1 do}
    inStueckliste.Free;
    inKomponentenliste.Free;
  end;