procedure next;
// Alle Datensätze in Customers (einer Tabelle in Windows// und SQLDataSet-Komponente in Linux) durchlaufen. // ProgressBar entsprechend aktualisieren.procedure TForm1.Button1Click(Sender: TObject);var i: Integer; begin with ProgressBar1 do begin Min := 0; Max := Customers.RecordCount; Customers.First; for i := Min to Max do begin Position := i; Customers.Next; // Operationen mit aktuellem Datensatz durchführen end; end; end;