Beim Einlesen doppelte Datensätze (PK) verhindern

[shmia]

Hier erst mal ein paar Tipps:
1.) bitte den Code, der die Verbindung zur Datenbank herstellt in eine eigene Methode verschieben.

Delphi-Quellcode:

procedure TForm1.ConnectToDatabase;
begin
  if not AdoConnectionMetro.Connected then
  begin
    AdoConnectionMetro.ConnectionString := ProvString;
    //'Provider=SQLOLEDB.1;Password=Eisenach09!;Persist Security Info=True;'+
    // 'User ID=sa;Initial Catalog=METRO;Data Source=METROSQL\SQLEXPRESS';
    AdoConnectionMetro.Connected := true;
  end;
end;

Diese Methode wird einmal VOR der Schleife aufgerufen
2.) Das SQL für die Query wird ebenfalls nur einmal vor der Schleife aufrufen

Delphi-Quellcode:

ADOQueryMetro.SQL.Text := 'INSERT into PRODUKTE (EAN_NR, ART_BEZ_ALTERN, '+
 'PWHG, PWG, PWUG, KZ_WERB) '+
 'VALUES (:sEAN_NR, :sART_BEZ_ALTERN, :sPWHG, :sPWG, :sPWUG, :sKZ_WERB)';

3.) Du fängst ja schon Fehler beim Einfügen mittels try..except ab.
Nur bringt das wenig, wenn du die Fehlermeldung mit ShowMessage() gleich anzeigst.
Stellt dir vor, es sind 100 doppelte Datensätze in der CSV-Datei - viel Spass beim OK-klicken.

4.) die Zeile AdoQueryMetro.Active := true; komplett löschen. Bei einem SQL-Insert macht dies keinen Sinn; es stört eher.