Der ganze Block beginnend mit
//Excel-Inhalt einlesen
bis zum Schleifenende gehört in eine eigene Prozedur!
Dieser Prozedur wird der Dateiname als Argument übergeben.
Wenn du deinen Code in kleinere Stückchen zerlegst wie die Sache einfacher.
Das könnte z.B. so aussehen:
Delphi-Quellcode:
LadeExcelDaten('tabelle.xls'); // bei nur 2 Dateien braucht man keine Schleife
LadeExcelDaten('tabelle2.xls');
if lb.Items.Count=0 then
begin
//Fehlermeldung anzeigen
if MessageDlg('keine Daten gefunden.', mtError, mbOkCancel, 0) = mrOK then
Application.Terminate;
end;